A084369 Numbers n such that the n-th prime number doesn't contain any even digits.

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

Links

Table of n, a(n) for n=1..62.

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

Adjacent sequences: A084366 A084367 A084368 * A084370 A084371 A084372

Keyword

base,easy,nonn,less

Author

Zak Seidov, Jun 23 2003

Extensions

Edited by Stefan Steinerberger, Jun 11 2007

Status

approved