Safe and Sophie Germain primes: Difference between revisions
add gwbasic
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: note use of library 'ntheory') |
(add gwbasic) |
||
Line 79:
1049 1103 1223 1229 1289 1409 1439 1451 1481 1499
</pre>
=={{header|GW-BASIC}}==
<lang gwbasic>10 PRINT "2 ";
20 C = 1
30 N = 3
40 WHILE C < 51
50 P = N
60 GOSUB 170
70 IF Z = 0 THEN GOTO 140
80 P = 2 * N + 1
90 GOSUB 170
100 IF Z = 0 THEN GOTO 140
110 C = C + 1
120 PRINT N;" ";
130 IF C MOD 10 = 0 THEN PRINT
140 N = N + 2
150 WEND
160 END
170 Z = 0
180 IF P < 2 THEN RETURN
190 Z = 1
200 IF P < 4 THEN RETURN
210 Z = 0
220 IF P MOD 2 = 0 THEN RETURN
230 I = 3
240 WHILE I*I<P
250 IF P MOD I = 0 THEN RETURN
260 I = I + 1
270 WEND
280 Z = 1
290 RETURN</lang>
=={{header|jq}}==
| |||