A154758 Primes with one even digit.

2, 23, 29, 41, 43, 47, 61, 67, 83, 89, 101, 103, 107, 109, 127, 149, 163, 167, 181, 211, 233, 239, 251, 257, 271, 277, 293, 307, 347, 349, 367, 383, 389, 419, 431, 433, 439, 457, 479, 491, 499, 503, 509, 521, 523, 541, 547, 563, 569, 587, 613, 617, 619, 631

Offset

1,1

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Mathematica

Select[Prime[Range[150]], Length[Select[IntegerDigits[#], EvenQ]] == 1&] (* Harvey P. Dale, Jan 04 2011 *)

Prog

(PARI) is(n)=my(d=digits(n)); sum(i=1, #d, d[i]%2==0)==1 && isprime(n) \\ Charles R Greathouse IV, Feb 15 2017

Crossrefs

Sequence in context: A041649 A141533 A045391 * A156614 A355430 A226016

Adjacent sequences: A154755 A154756 A154757 * A154759 A154760 A154761

Keyword

nonn,base

Author

Juri-Stepan Gerasimov, Jan 15 2009

Extensions

Corrected (101 to 109 inserted, 307 inserted, 401 and 409 removed etc.) by R. J. Mathar, May 05 2010

Status

approved