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

Author

Juri-Stepan Gerasimov, Jan 15 2009

Keywords

• nonn
• base

Crossrefs

Cf. A068690.

Programs

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

Formula

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

Extensions

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