login
A154764
Primes with exactly one odd decimal digit.
3
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
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
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
263, 269, etc. inserted by R. J. Mathar, Jan 18 2009
STATUS
approved