FACTOR   *1E15-9	 O.K.
=653* 718,321 * 2,131,907.

381 SECONDS.
24.02.01  22:56  NZDT*

==================
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 19.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. 
===== 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,  2^52+1.+
mults of  2
mults of  3
mults of  5
mults of  7

factor 5 byte integer, max 2^52+1+..  gets most factors .TEST bugs
enter no. / expression  . Qq/ 0 <CR> = quit  ?1E15-9
1E15-9 = 999999999999991

proc Hhcf(x = 999999999999991

 HCF = 653
999999999999991  Factor = 653 * 1531393568147
653 prime.         centisec = 135
  x  > 2 ^31.  TESTING slow e.g. minutes.
TRY FOR j = 4999  TO SQRT = 1237494.8760083816  STEP 2.  .. | centisec
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  61951  4201cs. / 
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  119701  7277cs. / 
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  177451  10359cs. / 
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  235201  13444cs. / 
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  292951  16532cs. / 
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  350701  19621cs. / 
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  408451  22711cs. / 
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  466201  25805cs. / 
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  523951  28901cs. / 
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  581701  31808cs. / 
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  639451  34612cs. / 
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,  697201  37417cs. / 
,,,,,,,,,,,,,,,,,,,,**718321

factors ?   x1 =  j*x1 =   718321 *  2131907
   centiseconds = 38443

 You have 10 seconds to press a key.
718321 prime.      centisec = 39483
2131907 prime.     centisec = 39550
718321 * 2131907

Unknown or missing variable j= 1461,  x$= 1E15-9, x1= 2131907
  at  erl ...  91

factor 5 byte integer, max 2^52+1+..  gets most factors .TEST bugs
enter no. / expression  . Qq/ 0 <CR> = quit  ? 
progm facthcf2/.   e n d.    CLOSEs * RAM SPOOL
