A232447 Primes p with each odd decimal digit present at least once.
13597, 13759, 15739, 15937, 15973, 17359, 17539, 19753, 31957, 37159, 37591, 37951, 39157, 51973, 53197, 53719, 53791, 53917, 57139, 57193, 71359, 71593, 73951, 75193, 75391, 75913, 75931, 79153, 79531, 91573, 91753, 95317, 95713, 95731, 105379, 105397, 109357, 109537
Offset: 1
Crossrefs
Cf. A108418 (even digits in p not allowable).
Programs
-
Mathematica
fQ[n_]:=Complement[{1,3,5,7,9},IntegerDigits@n]=={}&&PrimeQ[n];Select[Range[13579,197531,2],fQ]
Comments