Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A084369
Numbers n such that the n-th prime number doesn't contain any even digits.
0
2, 3, 4, 5, 6, 7, 8, 11, 12, 16, 17, 20, 21, 22, 25, 30, 32, 33, 34, 36, 37, 40, 41, 43, 44, 45, 46, 64, 65, 66, 67, 68, 71, 72, 74, 75, 78, 102, 105, 106, 108, 109, 128, 130, 131, 133, 134, 137, 139, 156, 157, 159, 162, 164, 165, 167, 168, 187, 190, 191, 193, 196
OFFSET
1,1
EXAMPLE
The 22nd prime is 79, the digits 7 and 9 are odd. Thus 22 is in the sequence.
The 9th prime is 23, the digit 2 is even, therefore 9 is not in the sequence.
MATHEMATICA
a={}; For[n=1, n<200, n++, If[Length[Select[IntegerDigits[Prime[n]], EvenQ[ # ]&]] == 0, AppendTo[a, n]]]; a
CROSSREFS
Cf. A030096 [contains the corresponding primes].
Sequence in context: A093515 A350242 A249724 * A167211 A362095 A067133
KEYWORD
base,easy,nonn,less
AUTHOR
Zak Seidov, Jun 23 2003
EXTENSIONS
Edited by Stefan Steinerberger, Jun 11 2007
STATUS
approved