16 lines
253 B
Text
16 lines
253 B
Text
10 REM Anti-primes
|
|
20 C = -999
|
|
30 N = N + 1
|
|
40 GOSUB 70
|
|
50 IF T = 20 THEN END
|
|
60 GOTO 30
|
|
70 D = 0
|
|
80 FOR F = 1 TO INT(N/2)
|
|
90 IF N MOD F = 0 THEN D = D + 1
|
|
100 NEXT F
|
|
110 IF D > C THEN GOSUB 130
|
|
120 RETURN
|
|
130 C = D
|
|
140 T = T + 1
|
|
150 PRINT N
|
|
160 RETURN
|