Duffinian numbers: Difference between revisions
m
→{{header|ALGOL 68}}: tweak
m (→{{header|ALGOL 68}}: notes and comments) |
m (→{{header|ALGOL 68}}: tweak) |
||
Line 60:
FOR n FROM 2 TO UPB ds DO
IF INT nds = ds[ n ];
IF nds = n + 1 THEN TRUE ELSE gcd( n, nds ) /= 1 FI
THEN
# n is prime or is not
ds[ n ] := 0
FI
| |||