Data update

Task/Fortunate-numbers/Pluto/fortunate-numbers.pluto

@@ -0,0 +1,21 @@
+local bigint = require "pluto:bigint"
+local int = require "int"
+local fmt = require "fmt"
+
+local primes = int.primes(379)
+local primorial = bigint.new(1)
+local fortunates = {}
+for primes as prime do
+    primorial *= prime
+    local j = 3
+    while true do
+        if (primorial + j):isprobableprime(15) then
+            fortunates:insert(j)
+            break
+        end
+        j += 2
+    end
+end
+fortunates = fortunates:dedup():reorder():sort()
+print("After sorting, the first 50 distinct fortunate numbers are:")
+fmt.tprint("%3s", fortunates:slice(1, 50), 10)