22 lines
675 B
Text
22 lines
675 B
Text
DIM Sieve% 1E5
|
|
Prime%=2
|
|
WHILE Prime%^2 < 1E5
|
|
FOR S%=Prime%*2 TO 1E5 STEP Prime% Sieve%?S%=1 NEXT
|
|
REPEAT Prime%+=1 UNTIL Sieve%?Prime%=0
|
|
ENDWHILE
|
|
Sieve%?1=1
|
|
|
|
PRINT "First 45 magnanimous numbers"
|
|
REPEAT
|
|
IF M% > 9 THEN
|
|
FOR I%=LOGM% TO 1 STEP -1
|
|
IF Sieve%?((M% DIV 10^I%) + (M% MOD 10^I%)) EXIT FOR
|
|
NEXT
|
|
ENDIF
|
|
IF I% == 0 THEN
|
|
N%+=1
|
|
IF N% == 240 OR N% == 390 PRINT '"Magnanimous numbers ";N% + 1 "-";N% + 10
|
|
IF N% < 46 OR (N% > 240 AND N% < 251) OR (N% > 390 AND N% < 401) PRINT;M% " ";
|
|
ENDIF
|
|
M%+=1
|
|
UNTIL N% > 400
|