13 lines
215 B
Text
13 lines
215 B
Text
10 REM Anti-primes
|
|
20 DEFINT A-Z
|
|
30 N=1
|
|
40 IF S>=20 THEN END ELSE F=1
|
|
50 IF N<2 GOTO 80 ELSE FOR I=1 TO N\2
|
|
60 IF N MOD I=0 THEN F=F+1
|
|
70 NEXT
|
|
80 IF F<=M GOTO 120
|
|
90 PRINT N,
|
|
100 M=F
|
|
110 S=S+1
|
|
120 N=N+1
|
|
130 GOTO 40
|