Substring primes: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: bugfix: deep_copy() calls missing.) |
|||
Line 459: | Line 459: | ||
Discarded candidates: [27, 57, 237, 537, 737] |
Discarded candidates: [27, 57, 237, 537, 737] |
||
</pre> |
</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}}== |
=={{header|Nim}}== |