pgms.maths.bignum.factoram.

16.06.00  16:20 fri  pm.

2^47-1 =

16^13-15^13=


YES.

BEST NEEDS basic64


 progm--    fin.soc.acorncpusr.donWn994/2.pi.facthcf2/. byte/zeta4

don mcdonald,    18.07.99  22:25  16.06.00  15:01


Examples : 1E15-1,  1E18/999 999,  2^37-1,  2^31-1

2^33-9 prime,  6763*10627*29947 Maple IsPrime

1E10-1, 1E11-1,  1E12-1, 1E14-1, 2^32+1 Euler, 13^10+1

1E13-1, 1E16-1,  100 895 598 169 Mersenne

10 662 526 601,  15 527 402 881. 

===== Below. (n+1)^p-n^p, generalised mersenne #

5^19-4^19= 830339* 8.min

6^13 prime, 3^23 =47*  ,  8 (157*) 9 (6553*) 11 (937*) 12^13 (157*) ,

 10^13- (2081)divide by zero?

13^13 = 443*442 171 334 567, 14^13=490 839 66666 1891 = 

 1 198 679* 409 483 829, 15^13 (79*547*677*39,394,031) = (13n+1)

16^13-15^13 max = 53*403391*1196 18227

mults of  2

mults of  3

mults of  5

mults of  7


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?11^13-10^13

11^13-10^13 = 24522712143931


proc Hhcf(x = 24522712143931


 HCF = 937

24522712143931  Factor = 937 * 26171517763

937 prime.         centisec = 131

  x  > 2 ^31.  TESTING slow e.g. minutes.

TRY FOR j = 4999  TO SQRT = 161776.134713992971  STEP 2.  .. | centisec

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  61951  4163cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,**100049


factors ?   x1 =  j*x1 =   100049 *  261587

   centiseconds = 6181


 You have 10 seconds to press a key.

100049 prime.      centisec = 6732

261587 prime.      centisec = 6756

100049 * 261587


Unknown or missing variable  at  erl ...          91


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?16^13-15^13

16^13-15^13 = 2557404559011121


proc Hhcf(x = 2557404559011121


 HCF = 53

2557404559011121  Factor = 53 * 48252916207757

53 prime.          centisec = 13

  x  > 2 ^31.  TESTING slow e.g. minutes.

TRY FOR j = 44939  TO SQRT = 6946431.90478082746  STEP 2.  .. | centisec

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  101851  4195cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  159601  7261cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  217351  10328cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  275101  13401cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  332851  16474cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  390601  19549cs. / 

,,,,,,,,,,,,**403391


factors ?   x1 =  j*x1 =   403391 *  119618227

   centiseconds = 20231


 You have 10 seconds to press a key.

403391 prime.      centisec = 21260

119618227 prime.   centisec = 21760

403391 * 119618227


Unknown or missing variable  at  erl ...          91


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?8^13-7^13

8^13-7^13 = 452866803481


proc Hhcf(x = 452866803481


 HCF = 157

452866803481  Factor = 157 * 2884501933

157 prime.         centisec = 25


 HCF = 3329

2884501933  Factor = 3329 * 866477

3329 prime.        centisec = 771

866477 prime.      centisec = 814


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?9^13-8^13

9^13-8^13 = 1992110014441      		*********


proc Hhcf(x = 1992110014441

  x  > 2 ^31.  TESTING slow e.g. minutes.

TRY FOR j = 4999  TO SQRT = 1411421.27461683098  STEP 2.  .. | centisec

,,**6553


factors ?   x1 =  j*x1 =   6553 *  303999697

   centiseconds = 1261


 You have 10 seconds to press a key.

6553 prime.        centisec = 2266

303999697 prime.   centisec = 3063

6553 * 303999697


Unknown or missing variable  at  erl ...          91


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?12^13-11^13

12^13-11^13 = 72470493235141


proc Hhcf(x = 72470493235141


 HCF = 157

72470493235141  Factor = 157 * 461595498313

157 prime.         centisec = 25


 HCF = 313

461595498313  Factor = 313 * 1474746001

313 prime.         centisec = 60

2887 * 510823

510823 prime.      centisec = 194


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?5^19-4^19

5^19-4^19 = 18798608421181


proc Hhcf(x = 18798608421181

  x  > 2 ^31.  TESTING slow e.g. minutes.

TRY FOR j = 17507  TO SQRT = 4335736.20290499181  STEP 2.  .. | centisec

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  74551  4198cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  132301  7261cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  190051  10328cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  247801  13399cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  305551  16473cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  363301  19548cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  421051  22623cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  478801  25702cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  536551  28782cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  594301  31680cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  652051  34460cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  709801  37515cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  767551  40584cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  825301  43653cs. / 

,,,,**830339


factors ?   x1 =  j*x1 =   830339 *  22639679

   centiseconds = 43922


 You have 10 seconds to press a key.

830339 prime.      centisec = 44404

22639679 prime.    centisec = 44620

830339 * 22639679


Unknown or missing variable  at  erl ...          91


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?443372888629441

443372888629441 = 443372888629441


proc Hhcf(x = 443372888629441


 HCF = 17

443372888629441  Factor = 17 * 26080758154673

17 prime.          centisec = 8

penguin dict of curious + intg nos. david wells.***


 HCF = 31

26080758154673  Factor = 31 * 841314779183

31 prime.          centisec = 11


 HCF = 1763

841314779183  Factor = 1763 * 477206341

41 * 43

43 prime.          centisec = 16

89 * 5361869

97 * 55277

167 * 331

331 prime.         centisec = 25


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?2^58+1

2^58+1 = 288230376151711744


        58-th PWR OF 2


Floating point exception: invalid operation  at  erl ...          40


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?2^43-1

2^43-1 = 8796093022207


proc Hhcf(x = 8796093022207


 HCF = 431

8796093022207  Factor = 431 * 20408568497

431 prime.         centisec = 80

  x  > 2 ^31.  TESTING slow e.g. minutes.

TRY FOR j = 4999  TO SQRT = 142858.56116103087  STEP 2.  .. | centisec

,,,,,**9719


factors ?   x1 =  j*x1 =   9719 *  2099863

   centiseconds = 1416


 You have 10 seconds to press a key.

9719 prime.        centisec = 2421

2099863 prime.     centisec = 2487

9719 * 2099863


Unknown or missing variable  at  erl ...          91


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?2^47-1

2^47-1 = 140737488355327


proc Hhcf(x = 140737488355327


 HCF = 2351

140737488355327  Factor = 2351 * 59862819377

2351 prime.        centisec = 542


Division by zero  at  erl ...         116


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?59862819377

59862819377 = 59862819377


proc Hhcf(x = 59862819377


 HCF = 4513

59862819377  Factor = 4513 * 13264529

4513 prime.        centisec = 1035

13264529 prime.    centisec = 1201


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?3^19-2^19

3^19-2^19 = 1161737179


1559 * 745181

745181 prime.      centisec = 76


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?2*3*5*7*11*13*17*19*23+1

2*3*5*7*11*13*17*19*23+1 = 223092871

				*************

317 * 703763

703763 prime.      centisec = 42


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?22309287*29*31*37+1

22309287*29*31*37+1 = 742073813482


proc Hhcf(x = 742073813482


 HCF = 2

742073813482  Factor = 2 * 371036906741

2 * 1

1 prime.           centisec = 7


 HCF = 1999

371036906741  Factor = 1999 * 185611259

1999 prime.        centisec = 459

185611259 prime.   centisec = 1079


** 1999 divides 3*7*11*13*17*19*23*29*31*37+1. ******

== primorial #37/10 +1.  *********


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?22309287*29*31+1

22309287*29*31+1 = 20056049014


proc Hhcf(x = 20056049014


 HCF = 2

20056049014  Factor = 2 * 10028024507

2 * 1

1 prime.           centisec = 6


 HCF = 479

10028024507  Factor = 479 * 20935333

479 prime.         centisec = 96

20935333 prime.    centisec = 303


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?2^17-1

2^17-1 = 131071


131071 prime.      centisec = 19


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?3^17-2^17

3^17-2^17 = 129009091 		** prime


129009091 prime.   centisec = 519


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?4^17----3^17

4^17----3^17 = 17309009347


proc Hhcf(x = 17309009347


 HCF = 7

17309009347  Factor = 7 * 2472715621

7 prime.           centisec = 6


 HCF = 919

2472715621  Factor = 919 * 2690659

919 prime.         centisec = 198

2690659 prime.     centisec = 273


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?5^17-4^17

5^17-4^17 = 745759583941                	***********


proc Hhcf(x = 745759583941


 HCF = 1259

745759583941  Factor = 1259 * 592342799		*******

1259 prime.        centisec = 286

2381 * 248779

248779 prime.      centisec = 396


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?6^13-5^13

6^13-5^13 = 11839990891


proc Hhcf(x = 11839990891

  x  > 2 ^31.  TESTING slow e.g. minutes.

TRY FOR j = 4999  TO SQRT = 108811.722213188041  STEP 2.  .. | centisec

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  61951  4171cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

factors ?   x1 =  j*x1 =   108813 *  108810.444441381085

   centiseconds = 6643

   **** no. prime**


 You have 10 seconds to press a key.


Missing ENDIF  at  erl ...          89


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?

progm facthcf2/.   e n d.    CLOSEs * RAM SPOOL



YES.

BEST NEEDS basic64


 progm--    fin.soc.acorncpusr.donWn994/2.pi.facthcff. byte/zeta4

don mcdonald,    18.07.99  22:25  16.06.00


Examples : 1E15-1,  1E18/999 999,  2^37-1,  2^31-1

2^33-9 prime,  6763*10627*29947 Maple IsPrime

1E10-1, 1E11-1,  1E12-1, 1E14-1, 2^32+1 Euler, 13^10+1

1E13-1, 1E16-1,  100 895 598 169 Mersenne

10 662 526 601,  15 527 402 881.  (n+1)^p-n^p

5^19= 830339* 8min

6^13 prime, 3^23 =47*  ,  8 9 11 12^13, 10^13- divide by zero?

13^13 = 443*442 171 334 567, 14^13=490 839 66666 1891 = 

 1 198 679* 409 483 829, 15^13 = (13n+1)

16^13-15^13 = 53*403391*1196 18227


factor 5 byte integer, max 2^40  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?11^13-10^13

11^13-10^13 = 24522712143931


proc Hhcf(x = 24522712143931


 HCF = 937

24522712143931  Factor = 937 * 26171517763

937 prime.         centisec = 130

  x  > 2 ^31.  slow e.g. minutes.

TRY FOR j = 4999  TO SQRT = 161776.134713992971  STEP 2.  .. | centisec

.......................................................32607  2625

.......................................................60217  4107

.......................................................87827  5589

.........................factors ?   x1 =  j*x1 =   100049 *  261587

   centiseconds = 6246


 You have 10 seconds to press a key.

100049 prime.      centisec = 7261

261587 prime.      centisec = 7285

100049 * 261587


factor 5 byte integer, max 2^40  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?15^13-14^13

15^13-14^13 = 1152480295105231


proc Hhcf(x = 1152480295105231


 HCF = 79

1152480295105231  Factor = 79 * 14588358165889

79 prime.          centisec = 15


 HCF = 547

14588358165889  Factor = 547 * 26669758987

547 prime.         centisec = 116


 HCF = 677

26669758987  Factor = 677 * 39394031

677 prime.         centisec = 150

39394031 prime.    centisec = 435


factor 5 byte integer, max 2^40  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?12^13-11^13

12^13-11^13 = 72470493235141


proc Hhcf(x = 72470493235141


 HCF = 157

72470493235141  Factor = 157 * 461595498313

157 prime.         centisec = 25


 HCF = 313

461595498313  Factor = 313 * 1474746001

313 prime.         centisec = 60

2887 * 510823

510823 prime.      centisec = 193


factor 5 byte integer, max 2^40  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?8^13-7^13

8^13-7^13 = 452866803481


proc Hhcf(x = 452866803481


 HCF = 157

452866803481  Factor = 157 * 2884501933

157 prime.         centisec = 25


 HCF = 3329

2884501933  Factor = 3329 * 866477

3329 prime.        centisec = 768

866477 prime.      centisec = 811


factor 5 byte integer, max 2^40  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?6^13-5^13

6^13-5^13 = 11839990891


proc Hhcf(x = 11839990891

  x  > 2 ^31.  slow e.g. minutes.

TRY FOR j = 4999  TO SQRT = 108811.722213188041  STEP 2.  .. | centisec

.......................................................32607  2652

.......................................................60217  4135

.......................................................87827  5616

..........................................factors ?   x1 =  j*x1 =   108911 *  108712.534923010535

   centiseconds = 6748


 You have 10 seconds to press a key.

No Factors.


factor 5 byte integer, max 2^40  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?

progm facthcff.   e n d.    CLOSEs * RAM SPOOL


--

2p52+5,

m41= 2199 0232 55552.,

etc.


m43 =  431*9719*2099863

m47 = 2351*4513*13264529

2^52+5 factors.

2^52+7= 11*113*3623169450821.


i had a # with factor 1933. don't know what the no. was?


1e21/(1e7-1) = factors.  approx. 1e14


YES.

BEST NEEDS basic64


 progm--    fin.soc.acorncpusr.donWn994/2.pi.facthcf2/. byte/zeta4

don mcdonald,    18.07.99  22:25  16.06.00  15:01


Examples : 1E15-1,  1E18/999 999,  2^37-1,  2^31-1

2^33-9 prime,  6763*10627*29947 Maple IsPrime

1E10-1, 1E11-1,  1E12-1, 1E14-1, 2^32+1 Euler, 13^10+1

1E13-1, 1E16-1,  100 895 598 169 Mersenne

10 662 526 601,  15 527 402 881. 

===== Below. (n+1)^p-n^p, generalised mersenne #

5^19-4^19= 830339* 8.min

6^13 prime, 3^23 =47*  ,  8 (157*) 9 (6553*) 11 (937*) 12^13 (157*) ,

 10^13- (2081)divide by zero?

13^13 = 443*442 171 334 567, 14^13=490 839 66666 1891 = 

 1 198 679* 409 483 829, 15^13 (79*547*677*39,394,031) = (13n+1)

16^13-15^13 max = 53*403391*1196 18227

mults of  2

mults of  3

mults of  5

mults of  7


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?100895598169

100895598169 = 100895598169

mersenne david wells yes.


proc Hhcf(x = 100895598169

  x  > 2 ^31.  TESTING slow e.g. minutes.

TRY FOR j = 4999  TO SQRT = 317640.674613626907  STEP 2.  .. | centisec

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  61951  4113cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,**112303


factors ?   x1 =  j*x1 =   112303 *  898423

   centiseconds = 6782


 You have 10 seconds to press a key.

112303 prime.      centisec = 7798

898423 prime.      centisec = 7842

112303 * 898423


Unknown or missing variable  at  erl ...          91


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?2^52+3

2^52+3 = 4503599627370499



proc Hhcf(x = 4503599627370499


 HCF = 373

4503599627370499  Factor = 373 * 12073993639063

373 prime.         centisec = 73

  x  > 2 ^31.  TESTING slow e.g. minutes.

TRY FOR j = 11245  TO SQRT = 3474765.26387941791  STEP 2.  .. | centisec

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  68251  4196cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  126001  7259cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  183751  10326cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  241501  13396cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  299251  16470cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  357001  19544cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  414751  22620cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  472501  25699cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  530251  28779cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  588001  31824cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  645751  34892cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  703501  37960cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  761251  41029cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  819001  44098cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  876751  47169cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  934501  50244cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  992251  53318cs. / 

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  1050001  56393cs. / 

,,,,

Escape  at  erl ...  stopped trying.        82


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?2^52+5

2^52+5 = 4503599627370501



proc Hhcf(x = 4503599627370501


 HCF = 21

4503599627370501  Factor = 21 * 214457125112881

3 * 7

7 prime.           centisec = 8


 HCF = 7

214457125112881  Factor = 7 * 30636732158983

7 prime.           centisec = 11


 HCF = 61

30636732158983  Factor = 61 * 502241510803

61 prime.          centisec = 17

  x  > 2 ^31.  TESTING slow e.g. minutes.

TRY FOR j = 4999  TO SQRT = 708689.996262822999  STEP 2.  .. | centisec

,,,,,,,,,,,,,,,,,,,,,,,,,,,,**34501


factors ?   x1 =  j*x1 =   34501 *  14557303

   centiseconds = 2711


 You have 10 seconds to press a key.

34501 prime.       centisec = 3720

14557303 prime.    centisec = 3894

34501 * 14557303


Unknown or missing variable  at  erl ...          91


factor 5 byte integer, max 2^51  gets most factors .TEST bugs

enter no. / expression  . Qq/ 0 <CR> = quit  ?

progm facthcf2/.   e n d.    CLOSEs * RAM SPOOL


