|
| |
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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
|
| |
|
|
