Fortunate numbers: Difference between revisions

Content added Content deleted
(julia example)
m (simpler)
Line 107: Line 107:
primorial = primorials(800)
primorial = primorials(800)


fortunate(n) = findfirst(m -> isprime(primorial[n] + m), 3:2:2000) * 2 + 1
fortunate(n) = nextprime(primorial[n] + 2) - primorial[n]


foreach(p -> print(rpad(last(p), 5), first(p) % 10 == 0 ? "\n" : ""),
foreach(p -> print(rpad(last(p), 5), first(p) % 10 == 0 ? "\n" : ""),
Line 119: Line 119:
373 379 383 397 401 409 419 421 439 443
373 379 383 397 401 409 419 421 439 443
</pre>
</pre>



=={{header|Nim}}==
=={{header|Nim}}==