A155055 Primes without positive even digits.

3, 5, 7, 11, 13, 17, 19, 31, 37, 53, 59, 71, 73, 79, 97, 101, 103, 107, 109, 113, 131, 137, 139, 151, 157, 173, 179, 191, 193, 197, 199, 307, 311, 313, 317, 331, 337, 353, 359, 373, 379, 397, 503, 509, 557, 571, 577, 593, 599, 701, 709, 719, 733, 739, 751, 757

Offset: 1

Author

Juri-Stepan Gerasimov, Jan 19 2009

Keywords

• nonn
• base

Links

• Jason Bard, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000040.

Programs

Maple

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

Mathematica

peQ[n_]:=Select[IntegerDigits[n],EvenQ[#] && #>0 &]=={}; Select[Prime[Range[135]], peQ[#] &] (* Jayanta Basu, May 23 2013 *)
Select[Prime[Range[200]],Intersection[IntegerDigits[#],{2,4,6,8}]=={}&] (* Harvey P. Dale, Jan 24 2015 *)

Extensions

Definition corrected by Omar E. Pol, Jan 27 2009