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,1

Links

Table of n, a(n) for n=1..56.

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 *)

Crossrefs

Cf. A000040.

Sequence in context: A291360 A269326 A163422 * A030096 A045394 A264030

Adjacent sequences: A155052 A155053 A155054 * A155056 A155057 A155058

Keyword

nonn,base

Author

Juri-Stepan Gerasimov, Jan 19 2009

Extensions

Definition corrected by Omar E. Pol, Jan 27 2009

Status

approved