RosettaCodeData/Task/Deceptive-numbers/Julia/deceptive-numbers.jl
2024-10-16 18:07:41 -07:00

13 lines
256 B
Julia

using Primes
function deceptives(numwanted)
n, r, ret = 2, big"1", Int[]
while length(ret) < numwanted
!isprime(n) && r % n == 0 && push!(ret, n)
n += 1
r = 10r + 1
end
return ret
end
@time println(deceptives(30))