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