Substring primes: Difference between revisions
→{{header|Nim}}
m (→{{header|Phix}}: bugfix: deep_copy() calls missing.) |
|||
Line 459:
Discarded candidates: [27, 57, 237, 537, 737]
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>Select[Range[500], PrimeQ[#] && AllTrue[Subsequences[IntegerDigits[#], {1, \[Infinity]}], FromDigits /* PrimeQ] &]</lang>
{{out}}
<pre>{2, 3, 5, 7, 23, 37, 53, 73, 373}</pre>
=={{header|Nim}}==
| |||