Data update

Task/Almost-prime/Icon/almost-prime-1.icon

@@ -6,5 +6,5 @@ procedure main()
 end
 
 procedure genKap(k)
-    suspend (k = *factors(n := seq(q)), n)
+    suspend (k = *factors(n := seq()), n)
 end

Task/Almost-prime/Pluto/almost-prime.pluto

@@ -0,0 +1,26 @@
+local function k_prime(n, k)
+    local nf = 0
+    for i = 2, n do
+        while n % i == 0 do
+            if nf == k then return false end
+            ++nf
+            n //= i
+        end
+    end
+    return nf == k
+end
+
+local function gen(k, n)
+    local r = {}
+    local m = 2
+    for i = 1, n do
+        while !k_prime(m, k) do ++m end
+        r[i] = m
+        ++m
+    end
+    return r
+end
+
+for k = 1, 5 do
+    print($"{k}: {gen(k, 10):concat(", ")}")
+end