Smarandache prime-digital sequence: Difference between revisions
added Arturo
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
Drkameleon (talk | contribs) (added Arturo) |
||
Line 273:
Largest Smarandache prime under 10000000: 7777753 (Smarandache prime 1903)
</pre>
=={{header|Arturo}}==
<syntaxhighlight lang="arturo">spds: 2..∞ | select.first:100 'x ->
and? -> prime? x
-> every? digits x => prime?
print "First 25 SPDS primes:"
print first.n: 25 spds
print ""
print ["100th SPDS prime:" last spds]</syntaxhighlight>
{{out}}
<pre>First 25 SPDS primes:
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 SPDS prime: 33223</pre>
=={{header|AWK}}==
| |||