%I #11 Jan 12 2019 20:50:06

%S 3,5,7,11,13,17,19,31,37,53,59,71,73,79,97,101,103,107,109,113,131,

%T 137,139,151,157,173,179,191,193,197,199,307,311,313,317,331,337,353,

%U 359,373,379,397,503,509,557,571,577,593,599,701,709,719,733,739,751,757

%N Primes without positive even digits.

%p a := proc (n) if `subset`(convert(convert(ithprime(n), base, 10), set), {0, 1, 3, 5, 7, 9}) = true then ithprime(n) else end if end proc: seq(a(n), n = 1 .. 150); # _Emeric Deutsch_, Jan 25 2009

%t peQ[n_]:=Select[IntegerDigits[n],EvenQ[#] && #>0 &]=={}; Select[Prime[Range[135]], peQ[#] &] (* _Jayanta Basu_, May 23 2013 *)

%t Select[Prime[Range[200]],Intersection[IntegerDigits[#],{2,4,6,8}]=={}&] (* _Harvey P. Dale_, Jan 24 2015 *)

%Y Cf. A000040.

%K nonn,base

%O 1,1

%A _Juri-Stepan Gerasimov_, Jan 19 2009

%E Definition corrected by _Omar E. Pol_, Jan 27 2009