Primes whose sum of digits is 25: Difference between revisions

=={{header|Quackery}}==

<code>eratosthenes</code> and <code>isprime</code> are defined at [[Sieve of Eratosthenes#Quackery]].

<syntaxhighlight lang="Quackery"> 5000 eratosthenes

[ 0

[ over while

swap 10 /mod

rot + again ]

nip ] is digitsum ( n --> n )

[] 5000 times

[ i^ isprime not if done

i^ digitsum 25 = if

[ i^ join ] ]

echo

</syntaxhighlight>

{{out}}

<pre>[ 997 1699 1789 1879 1987 2689 2797 2887 3499 3697 3769 3877 3967 4597 4759 4957 4993 ]</pre>