Palindromic primes: Difference between revisions

=={{header|Quackery}}==

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

<lang Quackery> [ [] swap

[ base share /mod

rot swap join swap

dup 0 = until ]

drop ] is digits ( n --> [ )

[ dup reverse = ] is palindromic ( [ --> b )

1000 eratosthenes

1000 times

[ i^ isprime if

[ i^ digits palindromic if

[ i^ echo sp ] ] ]</lang>

{{out}}

<pre>2 3 5 7 11 101 131 151 181 191 313 353 373 383 727 757 787 797 919 929 </pre>