|
%I #4 Nov 25 2013 02:24:58
%S 13597,13759,15739,15937,15973,17359,17539,19753,31957,37159,37591,
%T 37951,39157,51973,53197,53719,53791,53917,57139,57193,71359,71593,
%U 73951,75193,75391,75913,75931,79153,79531,91573,91753,95317,95713,95731,105379,105397,109357,109537
%N Primes p with each odd decimal digit present at least once.
%C Even digits are allowable in p.
%C 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.
%t fQ[n_]:=Complement[{1,3,5,7,9},IntegerDigits@n]=={}&&PrimeQ[n]];Select[Range[13579,197531,2],fQ]
%Y Cf. A108418 (even digits in p not allowable).
%K nonn,base
%O 1,1
%A _Zak Seidov_, Nov 24 2013
|
