Smarandache prime-digital sequence: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: added syntax colouring the hard way) |
No edit summary |
||
| Line 1,112: | Line 1,112: | ||
<pre>1-25 : 2 3 5 7 23 37 53 73 223 227 233 257 277 337 353 373 523 557 577 727 733 757 773 2237 2273 |
<pre>1-25 : 2 3 5 7 23 37 53 73 223 227 233 257 277 337 353 373 523 557 577 727 733 757 773 2237 2273 |
||
100th: 33223</pre> |
100th: 33223</pre> |
||
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
|||
<lang Mathematica>ClearAll[SmarandachePrimeQ] |
|||
SmarandachePrimeQ[n_Integer] := MatchQ[IntegerDigits[n], {(2 | 3 | 5 | 7) ..}] \[And] PrimeQ[n] |
|||
s = Select[Range[10^5], SmarandachePrimeQ]; |
|||
Take[s, UpTo[25]] |
|||
s[[100]]</lang> |
|||
{{out}} |
|||
<pre>{2,3,5,7,23,37,53,73,223,227,233,257,277,337,353,373,523,557,577,727,733,757,773,2237,2273} |
|||
33223</pre> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |
||