Find prime n such that reversed n is also prime: Difference between revisions
Content deleted Content added
m →{{header|jq}}: elaborate |
|||
Line 580:
Total found: 34
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>Select[Range[499], PrimeQ[#] \[And] PrimeQ[IntegerReverse[#]] &]</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|Nim}}==
|