33 lines
532 B
Plaintext
33 lines
532 B
Plaintext
REM Almost prime
|
|
LET K=1
|
|
10 IF K>5 THEN END
|
|
PRINT "k = ",K,":"
|
|
LET I=2
|
|
LET C=0
|
|
20 IF C>=10 THEN GOTO 40
|
|
LET N=I
|
|
GOSUB 500
|
|
IF P=0 THEN GOTO 30
|
|
PRINT I
|
|
LET C=C+1
|
|
30 LET I=I+1
|
|
GOTO 20
|
|
40 LET K=K+1
|
|
GOTO 10
|
|
|
|
REM Check if N is a K prime (result: P)
|
|
500 LET F=0
|
|
LET J=2
|
|
510 IF (N/J)*J<>N THEN GOTO 520
|
|
IF F=K THEN GOTO 530
|
|
LET F=F+1
|
|
LET N=N/J
|
|
GOTO 510
|
|
520 LET J=J+1
|
|
IF J<=N THEN GOTO 510
|
|
LET P=0
|
|
IF F=K THEN LET P=-1
|
|
RETURN
|
|
530 LET P=0
|
|
RETURN
|