Substring primes: Difference between revisions
→{{header|Julia}}
(Added Wren) |
|||
Line 103:
73
373
</pre>
=={{header|Julia}}==
<lang julia>using Primes
const pmask = primesmask(1, 1000)
function isA085823(n, base = 10, sieve = pmask)
dig = digits(n; base=base)
for i in 1:length(dig), j in i:length(dig)
k = evalpoly(base, dig[i:j])
(k == 0 || !sieve[k]) && return false
end
return true
end
println(filter(isA085823, 1:1000))
</lang>{{out}}
<pre>
[2, 3, 5, 7, 23, 37, 53, 73, 373]
</pre>
| |||