OFFSET
1,1
COMMENTS
Even digits are allowable in p.
First terms not in A108418: 105379, 105397, 109357, 109537, 130579, 130957, 134597, 135479, 135497, 135697, 137659, 139457, 139547, 150379, 153749, 153947, 154937, 157349, 157639, 159073, 159347, 159437, 159473, 159673, 159763.
MATHEMATICA
fQ[n_]:=Complement[{1, 3, 5, 7, 9}, IntegerDigits@n]=={}&&PrimeQ[n]]; Select[Range[13579, 197531, 2], fQ]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Nov 24 2013
STATUS
approved