Palindromic primes: Difference between revisions
→{{header|Nim}}
m (→{{header|jq}}: typo) |
|||
Line 390:
</lang>{{out}}
<pre>[2, 3, 5, 7, 9, 11, 101, 131, 151, 181, 191, 313, 353, 373, 383, 727, 757, 787, 797, 919, 929]</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>Select[Range[999], PrimeQ[#] \[And] PalindromeQ[#] &]</lang>
{{out}}
<pre>{2, 3, 5, 7, 11, 101, 131, 151, 181, 191, 313, 353, 373, 383, 727, 757, 787, 797, 919, 929}</pre>
=={{header|Nim}}==
| |||