19 lines
393 B
Plaintext
19 lines
393 B
Plaintext
10 FOR k=1 TO 5
|
|
20 PRINT k;":";
|
|
30 LET c=0: LET i=1
|
|
40 IF c=10 THEN GO TO 100
|
|
50 LET i=i+1
|
|
60 GO SUB 1000
|
|
70 IF r THEN PRINT " ";i;: LET c=c+1
|
|
90 GO TO 40
|
|
100 PRINT
|
|
110 NEXT k
|
|
120 STOP
|
|
1000 REM kprime
|
|
1010 LET p=2: LET n=i: LET f=0
|
|
1020 IF f=k OR (p*p)>n THEN GO TO 1100
|
|
1030 IF n/p=INT (n/p) THEN LET n=n/p: LET f=f+1: GO TO 1030
|
|
1040 LET p=p+1: GO TO 1020
|
|
1100 LET r=(f+(n>1)=k)
|
|
1110 RETURN
|