Nice primes: Difference between revisions
Added Quackery.
(Added Quackery.) |
|||
Line 1,388:
673(7) 677(2) 691(7) 709(7) 727(7) 743(5) 761(5) 797(5) 821(2) 839(2) 853(7) 857(2)
887(5) 907(7) 911(2) 929(2) 941(5) 947(2) 977(5) 983(2) 997(7)
</pre>
=={{header|Quackery}}==
<code>eratosthenes</code> and <code>isprime</code> are defined at [[Sieve of Eratosthenes#Quackery]].
<lang Quackery> 1000 eratosthenes
[ 1 - 9 mod 1+ ] is digitalroot ( n --> n )
[ dup digitalroot isprime
swap isprime and ] is niceprime ( n --> b )
500 times
[ i^ 500 + niceprime if
[ i^ 500 + echo sp ] ]</lang>
{{out}}
<pre>509 547 563 569 587 599 601 617 619 641 653 659 673 677 691 709 727 743 761 797 821 839 853 857 887 907 911 929 941 947 977 983 997
</pre>
| |||