Find prime n such that reversed n is also prime: Difference between revisions
Content added Content deleted
m (→{{header|jq}}: elaborate) |
|||
Line 580: | Line 580: | ||
Total found: 34 |
Total found: 34 |
||
</pre> |
</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}}== |
=={{header|Nim}}== |