Smarandache prime-digital sequence: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
Drkameleon (talk | contribs) (added Arturo) |
||
Line 273: | Line 273: | ||
Largest Smarandache prime under 10000000: 7777753 (Smarandache prime 1903) |
Largest Smarandache prime under 10000000: 7777753 (Smarandache prime 1903) |
||
</pre> |
</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}}== |
=={{header|AWK}}== |