Mersenne primes: Difference between revisions
Content added Content deleted
Drkameleon (talk | contribs) (added Arturo) |
|||
Line 138: | Line 138: | ||
end repeat |
end repeat |
||
</syntaxhighlight> |
</syntaxhighlight> |
||
=={{header|Arturo}}== |
|||
<syntaxhighlight lang="arturo">mersenne?: function [n][ |
|||
prime? dec 2 ^ n |
|||
] |
|||
1..31 | select => mersenne? |
|||
| loop 'x -> print ["M (" x ") = 2 ^" x " - 1 =" (2^x)-1 "is a prime"]</syntaxhighlight> |
|||
{{out}} |
|||
<pre>M ( 2 ) = 2 ^ 2 - 1 = 3 is a prime |
|||
M ( 3 ) = 2 ^ 3 - 1 = 7 is a prime |
|||
M ( 5 ) = 2 ^ 5 - 1 = 31 is a prime |
|||
M ( 7 ) = 2 ^ 7 - 1 = 127 is a prime |
|||
M ( 13 ) = 2 ^ 13 - 1 = 8191 is a prime |
|||
M ( 17 ) = 2 ^ 17 - 1 = 131071 is a prime |
|||
M ( 19 ) = 2 ^ 19 - 1 = 524287 is a prime |
|||
M ( 31 ) = 2 ^ 31 - 1 = 2147483647 is a prime</pre> |
|||
=={{header|AWK}}== |
=={{header|AWK}}== |
||
Line 178: | Line 197: | ||
2 ^ 61 - 1 |
2 ^ 61 - 1 |
||
</pre> |
</pre> |
||
=={{header|BASIC}}== |
=={{header|BASIC}}== |