Almost prime: Difference between revisions
no edit summary
m (→{{header|Quackery}}: typo) |
No edit summary |
||
Line 4,199:
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>
=={{header|Vlang}}==
{{trans|go}}
<lang go>fn k_prime(n int, k int) bool {
mut nf := 0
mut nn := n
for i in 2 .. nn+1 {
for nn % i == 0 {
if nf == k {
return false
}
nf++
nn/=i
}
}
return nf == k
}
fn gen(k int, n int) []int {
mut r := []int{len:n}
mut nx := 2
for i in 0 .. n {
for !k_prime(nx, k) {
nx++
}
r[i] = nx
nx++
}
return r
}
fn main(){
for k in 1..6 {
println('$k ${gen(k,10)}')
}
}</lang>
{{out}}
<pre>
1 [2 3 5 7 11 13 17 19 23 29]
2 [4 6 9 10 14 15 21 22 25 26]
3 [8 12 18 20 27 28 30 42 44 45]
4 [16 24 36 40 54 56 60 81 84 88]
5 [32 48 72 80 108 112 120 162 168 176]
</pre>
=={{header|Wren}}==
| |||