RosettaCodeData/Task/Weird-numbers/Zkl/weird-numbers-2.zkl
2023-07-01 13:44:08 -04:00

7 lines
195 B
Text

w,count,max := sieve(17_000), 0, 25;
println("The first 25 weird numbers are:");
foreach n in ([2..* ,2]){
if(not w[n]){ print("%d ".fmt(n)); count+=1; }
if(count>=max) break;
}
println();