21 lines
338 B
Plaintext
21 lines
338 B
Plaintext
# Converted from C
|
|
kprime = (n, k):
|
|
p = 2, f = 0
|
|
while (f < k && p*p <= n):
|
|
while (0 == n % p):
|
|
n /= p
|
|
f++.
|
|
p++.
|
|
n = if (n > 1): 1.
|
|
else: 0.
|
|
f + n == k.
|
|
|
|
1 to 5 (k):
|
|
"k = " print, k print, ":" print
|
|
i = 2, c = 0
|
|
while (c < 10):
|
|
if (kprime(i, k)): " " print, i print, c++.
|
|
i++
|
|
.
|
|
"" say.
|