20 lines
447 B
Plaintext
20 lines
447 B
Plaintext
10 LET limit=20000
|
|
20 PRINT "Amicable pairs < ";limit
|
|
30 FOR n=1 TO limit
|
|
40 LET num=n: GO SUB 1000
|
|
50 LET m=num
|
|
60 GO SUB 1000
|
|
70 IF n=num AND n<m THEN PRINT n;" ";m
|
|
80 NEXT n
|
|
90 STOP
|
|
1000 REM sumprop
|
|
1010 IF num<2 THEN LET num=0: RETURN
|
|
1020 LET sum=1
|
|
1030 LET root=SQR num
|
|
1040 FOR i=2 TO root-.01
|
|
1050 IF num/i=INT (num/i) THEN LET sum=sum+i+num/i
|
|
1060 NEXT i
|
|
1070 IF num/root=INT (num/root) THEN LET sum=sum+root
|
|
1080 LET num=sum
|
|
1090 RETURN
|