Fortunate numbers: Difference between revisions

=={{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>