A154764 Primes with exactly one odd decimal digit.

3, 5, 7, 23, 29, 41, 43, 47, 61, 67, 83, 89, 223, 227, 229, 241, 263, 269, 281, 283, 401, 409, 421, 443, 449, 461, 463, 467, 487, 601, 607, 641, 643, 647, 661, 683, 809, 821, 823, 827, 829, 863, 881, 883, 887, 2003, 2027, 2029, 2063, 2069, 2081, 2083, 2087

Offset

1,1

Links

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

Formula

A068690 \ {2}. - R. J. Mathar, Nov 01 2009

Maple

nodds := proc(n) local dgs, d; dgs := convert(n, base, 10) ; add(d mod 2, d=dgs) ; end: isA154764 := proc(n) RETURN( isprime(n) and ( nodds(n) = 1 ) ) ; end; for n from 1 to 400 do p := ithprime(n) ; if isA154764(p) then printf("%d, ", p) ; fi; od: # R. J. Mathar, Jan 18 2009

Mathematica

Select[Prime[Range[350]], Length[Select[IntegerDigits[#], OddQ]] == 1 &] (* Harvey P. Dale, Jan 06 2011 *)

Crossrefs

Cf. A068690.

Sequence in context: A155780 A296922 A119450 * A320256 A101773 A057182

Adjacent sequences: A154761 A154762 A154763 * A154765 A154766 A154767

Keyword

nonn,base

Author

Juri-Stepan Gerasimov, Jan 15 2009

Extensions

263, 269, etc. inserted by R. J. Mathar, Jan 18 2009

Status

approved