Find prime numbers of the form n*n*n+2: Difference between revisions

→‎{{header|Quackery}}: Faster primality test
(→‎{{header|Quackery}}: Faster primality test)
Line 1,458:
=={{header|Quackery}}==
 
<code>isprimeprime</code> is defined at [[PrimalityMiller–Rabin byprimality trial divisiontest#Quackery]].
 
<syntaxhighlight lang="Quackery"> [ dip number$
Line 1,467:
199 times
[ i^ 1+ 3 ** 2 +
dup isprimeprime iff
[ i^ 1+ 4 recho
sp 7 recho cr ]
1,462

edits