30 lines
399 B
Text
30 lines
399 B
Text
func kprime n k .
|
|
i = 2
|
|
while i <= n
|
|
while n mod i = 0
|
|
if f = k
|
|
return 0
|
|
.
|
|
f += 1
|
|
n /= i
|
|
.
|
|
i += 1
|
|
.
|
|
if f = k
|
|
return 1
|
|
.
|
|
return 0
|
|
.
|
|
for k = 1 to 5
|
|
write "k=" & k & " : "
|
|
i = 2
|
|
c = 0
|
|
while c < 10
|
|
if kprime i k = 1
|
|
write i & " "
|
|
c += 1
|
|
.
|
|
i += 1
|
|
.
|
|
print ""
|
|
.
|