|
| |
|
|
A154758
|
|
Primes with one even digit.
|
|
2
|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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
|
| |
|
|
