Fortunate numbers: Difference between revisions
Added Arturo implementation
Drkameleon (talk | contribs) (Added Arturo implementation) |
|||
Line 100:
373 379 383 397 401 409 419 421 439 443
</pre>
=={{header|Arturo}}==
<lang rebol>firstPrimes: select 1..100 => prime?
primorial: function [n][
product first.n: n firstPrimes
]
fortunates: []
i: 1
while [8 > size fortunates][
m: 3
pmi: primorial i
while [not? prime? m + pmi][m: m+2]
fortunates: unique fortunates ++ m
i: i + 1
]
print sort fortunates</lang>
{{out}}
<pre>3 5 7 13 17 19 23 37</pre>
=={{header|Factor}}==
| |||