Mersenne primes: Difference between revisions
→{{header|ALGOL W}}: Avoid overflow
(Added Algol W) |
(→{{header|ALGOL W}}: Avoid overflow) |
||
Line 77:
p2 := 4;
if oddOnlyPrimalityTest( p2 - 1 ) then writeon( i_w := 1, s_w := 0, " ", n );
if n <= 31 then p2 := p2 * 4
end.
</syntaxhighlight>
{{out}}
<pre>
2 3 5 7 13 17 19
</pre>
| |||