Pan base non-primes: Difference between revisions

m
(julia example)
Line 188:
<lang ruby>using Primes
 
ispanbasecomposite(n) = (d = digits(n); !isprime(n) && all(b -> !isprime(evalpoly(b, d)), maximum(d)+1:max(10, n)))
 
panbase2500 = filter(ispanbasecomposite, 2:2500)
Line 221:
Even up to and including 2500: 792//953, or 83.1%.
</pre>
 
 
=={{header|Pascal}}==
4,105

edits