|
| |
|
|
A154764
|
|
Primes with exactly one odd decimal digit.
|
|
0
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
FORMULA
| A068690 \ {2}. [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), 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: [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jan 18 2009]
|
|
|
MATHEMATICA
| Select[Prime[Range[350]], Length[Select[IntegerDigits[#], OddQ]] == 1 &] (* From Harvey P. Dale, Jan 06 2011 *)
|
|
|
CROSSREFS
| Sequence in context: A137978 A155780 A119450 * A101773 A057182 A038916
Adjacent sequences: A154761 A154762 A154763 * A154765 A154766 A154767
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Juri-Stepan Gerasimov (2stepan(AT)rambler.ru), Jan 15 2009
|
|
|
EXTENSIONS
| Inserted 263, 269 etc. R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jan 18 2009
|
| |
|
|
