to:nzm,donpar
subject:Choose a neat phone number. makes good phone numbers..

prog  calc.factors.gtprfact13, //234 5678. [jort 8oo.o4 jort.xx ihug]
 list integers with greatest prime factor not exceeding 13.
 28.04.02 - 22:40pm.  +(64-4) 389-6820.
start i1$ number/ ?2000000

j / good pho.no./ +increase/ (greatest prime factor)/ Prod factors ...
1/  2000000+ 2000000 (5)=  2.2.2.2.2.2.2.5.5.5.5.5.5.
2/  2000376+ 376 (7)=  2.2.2.3.3.3.3.3.3.7.7.7.
3/  2002000+ 1624 (13)=  2.2.2.2.5.5.5.7.11.13.
20/  2025000+ 549 (5)=  2.2.2.3.3.3.3.5.5.5.5.5.
41/  2048000+ 500 (5)=  2.2.2.2.2.2.2.2.2.2.2.2.2.2.5.5.5.
53/  2064384+ 504 (7)=  2.2.2.2.2.2.2.2.2.2.2.2.2.2.2.3.3.7.
start i1$ number/  ?2345678
j / good pho.no./ +increase/ (greatest prime factor)/ Prod factors ...
2/  2347884+ 2347884 (11)=  2.2.3.3.7.7.11.11.11.
3/  2352000+ 4116 (7)=  2.2.2.2.2.2.2.3.5.5.5.7.7.
4/  2352240+ 240 (11)=  2.2.2.2.3.3.3.3.3.5.11.11.
5/  2352980+ 740 (7)=  2.2.5.7.7.7.7.7.7.
6/  2354352+ 1372 (13)=  2.2.2.2.3.7.7.7.11.13.
7/  2357586+ 3234 (11)=  2.3.3.3.3.3.3.3.7.7.11.
8/  2358125+ 539 (11)=  5.5.5.5.7.7.7.11.
9/  2358720+ 595 (13)=  2.2.2.2.2.2.3.3.3.3.5.7.13.
10/  2359296+ 576 (3)= *  2.2.2.2.2.2.2.2.2.2.2.2.2.2.2.2.2.2.3.3.
11/  2359500+ 204 (13)=*   2.2.3.5.5.5.11.11.13.
12/  2361960+ 2460 (5)=*   2.2.2.3.3.3.3.3.3.3.3.3.3.5.
13/  2362500+ 540 (7)= *  2.2.3.3.3.5.5.5.5.5.7.
14/  2365440+ 2940 (11)=  2.2.2.2.2.2.2.2.2.2.2.3.5.7.11.
15/  2366000+ 560 (13)=  2.2.2.2.5.5.5.7.13.13.
16/  2368366+ 2366 (13)=  2.7.7.11.13.13.13.
17/  2369250+ 884 (13)=  2.3.3.3.3.3.3.5.5.5.13.
18/  2370816+ 1566 (7)=  2.2.2.2.2.2.2.2.3.3.3.7.7.7.
j / good pho.no./ +increase/ (greatest prime factor)/ Prod factors ...

20/  2371600+ 784 (11)=  2.2.2.2.5.5.7.7.11.11.
21/  2371842+ 242 (11)=  2.3.3.3.3.11.11.11.11.
22/  2372760+ 918 (13)=  2.2.2.3.3.3.5.13.13.13.
23/  2376000+ 3240 (11)=  2.2.2.2.2.2.3.3.3.5.5.5.11.
24/  2376990+ 990 (11)=  2.3.3.5.7.7.7.7.11.
25/  2378376+ 1386 (13)=  2.2.2.3.3.3.7.11.11.13.
26/  2379520+ 1144 (13)=  2.2.2.2.2.2.2.2.5.11.13.13.
27/  2381400+ 1880 (7)=  2.2.2.3.3.3.3.3.5.5.7.7.
28/  2381643+ 243 (11)=  3.3.3.3.3.3.3.3.3.11.11.
29/  2384928+ 3285 (13)=  2.2.2.2.2.3.3.7.7.13.13.
30/  2385152+ 224 (11)=  2.2.2.2.2.2.2.2.7.11.11.11.
31/  2388204+ 3052 (13)=  2.2.3.3.3.3.3.3.3.3.7.13.
32/  2388750+ 546 (13)=  2.3.5.5.5.5.7.7.13.
33/  2392533+ 3783 (13)=  3.3.11.11.13.13.13.
34/  2395008+ 2475 (11)=  2.2.2.2.2.2.2.3.3.3.3.3.7.11.
35/  2395575+ 567 (13)=  3.3.3.3.5.5.7.13.13.
36/  2395800+ 225 (11)=  2.2.2.3.3.5.5.11.11.11.
Escape
END *sp.
don.mcdonald@paradise.net.nz
01.05.02  02:24
wrote this program when nz population estimate came out (migration up.)
