29 lines
493 B
Plaintext
29 lines
493 B
Plaintext
10 REM Almost prime
|
|
20 FOR K=1 TO 5
|
|
30 PRINT "k =";STR$(K);":";
|
|
40 I=2
|
|
50 C=0
|
|
60 IF C>=10 THEN 110
|
|
70 AN=I:GOSUB 1000
|
|
80 IF ISKPRIME=0 THEN 90
|
|
82 REM Print I in 4 fields
|
|
84 S$=STR$(I)
|
|
86 PRINT SPC(4-LEN(S$));S$;
|
|
88 C=C+1
|
|
90 I=I+1
|
|
100 GOTO 60
|
|
110 PRINT
|
|
120 NEXT K
|
|
130 END
|
|
995 REM Check if N (AN) is a K prime
|
|
1000 F=0
|
|
1010 FOR J=2 TO AN
|
|
1020 IF INT(AN/J)*J<>AN THEN 1070
|
|
1030 IF F=K THEN ISKPRIME=0:RETURN
|
|
1040 F=F+1
|
|
1050 AN=INT(AN/J)
|
|
1060 GOTO 1020
|
|
1070 NEXT J
|
|
1080 ISKPRIME=(F=K)
|
|
1090 RETURN
|