Safe and Sophie Germain primes: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: note use of library 'ntheory') |
(add gwbasic) |
||
Line 79: | Line 79: | ||
1049 1103 1223 1229 1289 1409 1439 1451 1481 1499 |
1049 1103 1223 1229 1289 1409 1439 1451 1481 1499 |
||
</pre> |
</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}}== |
=={{header|jq}}== |