Almost prime: Difference between revisions

==={{header|Craft Basic}}===

<syntaxhighlight lang="basic">for k = 1 to 5

print "k = ", k, ": ",

let e = 2

let c = 0

do

if c < 10 then

let n = e

gosub kprime

if r then

print tab, e,

let c = c + 1

endif

let e = e + 1

endif

loop c < 10

print

next k

end

sub kprime

let f = 0

for i = 2 to n

do

if n mod i = 0 then

if f = k then

let r = 0

return

endif

let f = f + 1

let n = n / i

wait

endif

loop n mod i = 0

next i

let r = f = k

return</syntaxhighlight>

{{out| Output}}

<pre>

k = 1: 2 3 5 7 11 13 17 19 23 29

k = 2: 4 6 9 10 14 15 21 22 25 26

k = 3: 8 12 18 20 27 28 30 42 44 45

k = 4: 16 24 36 40 54 56 60 81 84 88

k = 5: 32 48 72 80 108 112 120 162 168 176

</pre>