27 lines
490 B
Text
27 lines
490 B
Text
100 REM Anti-primes
|
|
110 LET A=0
|
|
120 LET N=1
|
|
130 LET H=0
|
|
140 PRINT "The first 20 anti-primes are:"
|
|
150 GOSUB 300
|
|
160 LET H=F
|
|
170 LET A=A+1
|
|
180 PRINT N
|
|
190 LET N=N+1
|
|
200 IF A<20 THEN GOTO 150
|
|
210 END
|
|
290 REM Search next anti-prime
|
|
300 GOSUB 400
|
|
310 IF F>H THEN RETURN
|
|
320 LET N=N+1
|
|
330 GOTO 300
|
|
390 REM Count divisors
|
|
400 LET F=1
|
|
410 IF N>1 THEN LET F=2
|
|
420 LET C=2
|
|
430 IF C*C>=N THEN GOTO 470
|
|
440 IF (N/C)*C=N THEN LET F=F+2
|
|
450 LET C=C+1
|
|
460 GOTO 430
|
|
470 IF C*C=N THEN LET F=F+1
|
|
480 RETURN
|