Find prime n such that reversed n is also prime: Difference between revisions

Added Arturo implementation
(Added Sidef)
(Added Arturo implementation)
Line 191:
Found 34 reversable primes below 500
</pre>
=={{header|Arturo}}==
 
<lang rebol>print
select 1..499 'x ->
and? [prime? x][prime? to :integer reverse to :string x]</lang>
 
{{out}}
 
<pre>2 3 5 7 11 13 17 31 37 71 73 79 97 101 107 113 131 149 151 157 167 179 181 191 199 311 313 337 347 353 359 373 383 389</pre>
 
=={{header|AWK}}==
<lang AWK>
1,532

edits