Find adjacent primes which differ by a square integer: Difference between revisions
Content added Content deleted
No edit summary |
(Added Quackery.) |
||
Line 1,053: | Line 1,053: | ||
997877 997813 diff = 64 |
997877 997813 diff = 64 |
||
done... |
done... |
||
</pre> |
|||
=={{header|Quackery}}== |
|||
<code>eratosthenes</code>, <code>isprime</code>, and <code>sqrt</code> are defined at [[Sieve of Eratosthenes#Quackery]]. |
|||
<syntaxhighlight lang="Quackery"> 1000000 eratosthenes |
|||
0 0 |
|||
1000000 times |
|||
[ i^ isprime if |
|||
[ nip i^ 2dup swap - |
|||
dup 36 > iff |
|||
[ dup sqrt dup * = if |
|||
[ 2dup swap |
|||
2dup - unrot |
|||
echo say " - " |
|||
echo say " = " |
|||
echo cr ] ] |
|||
else drop ] ] |
|||
2drop</syntaxhighlight> |
|||
{{out}} |
|||
<pre>89689 - 89753 = 64 |
|||
107377 - 107441 = 64 |
|||
288583 - 288647 = 64 |
|||
367957 - 368021 = 64 |
|||
381103 - 381167 = 64 |
|||
396733 - 396833 = 100 |
|||
400759 - 400823 = 64 |
|||
445363 - 445427 = 64 |
|||
623107 - 623171 = 64 |
|||
625699 - 625763 = 64 |
|||
637003 - 637067 = 64 |
|||
710713 - 710777 = 64 |
|||
725209 - 725273 = 64 |
|||
779413 - 779477 = 64 |
|||
801883 - 801947 = 64 |
|||
803749 - 803813 = 64 |
|||
821677 - 821741 = 64 |
|||
832519 - 832583 = 64 |
|||
838249 - 838349 = 100 |
|||
844777 - 844841 = 64 |
|||
883807 - 883871 = 64 |
|||
912103 - 912167 = 64 |
|||
919447 - 919511 = 64 |
|||
954763 - 954827 = 64 |
|||
981823 - 981887 = 64 |
|||
997813 - 997877 = 64 |
|||
</pre> |
</pre> |
||