27 lines
446 B
Plaintext
27 lines
446 B
Plaintext
function kPrime(n, k)
|
|
f = 0
|
|
for i = 2 to n
|
|
while n mod i = 0
|
|
if f = k then return False
|
|
f += 1
|
|
n /= i
|
|
end while
|
|
next i
|
|
return f = k
|
|
end function
|
|
|
|
for k = 1 to 5
|
|
print "k = "; k; " :";
|
|
i = 2
|
|
c = 0
|
|
while c < 10
|
|
if kPrime(i, k) then
|
|
print rjust (string(i), 4);
|
|
c += 1
|
|
end if
|
|
i += 1
|
|
end while
|
|
print
|
|
next k
|
|
end
|