Mersenne primes: Difference between revisions

=={{header|Quackery}}==

<code>prime</code> is defined at [[Miller–Rabin primality test#Quackery]].

<syntaxhighlight lang="Quackery"> 1

[ 2 over ** 1 - prime if

[ say "2^" dup echo say "-1" cr ]

1+ dup 5000 = until ]

drop</syntaxhighlight>

{{out}}

<pre>2^2-1

2^3-1

2^5-1

2^7-1

2^13-1

2^17-1

2^19-1

2^31-1

2^61-1

2^89-1

2^107-1

2^127-1

2^521-1

2^607-1

2^1279-1

2^2203-1

2^2281-1

2^3217-1

2^4253-1

2^4423-1

</pre>