A109066 - OEIS

A109066

Number of prime digits in n-th prime.

1, 1, 1, 1, 0, 1, 1, 0, 2, 1, 1, 2, 0, 1, 1, 2, 1, 0, 1, 1, 2, 1, 1, 0, 1, 0, 1, 1, 0, 1, 2, 1, 2, 1, 0, 1, 2, 1, 1, 2, 1, 0, 0, 1, 1, 0, 1, 3, 3, 2, 3, 2, 1, 2, 3, 2, 1, 2, 3, 1, 2, 2, 2, 1, 2, 2, 2, 3, 2, 1, 3, 2, 2, 3, 2, 2, 1, 2, 0, 0, 0, 1, 1, 2, 1, 1, 0, 2, 0, 1, 1, 1, 1, 0, 0, 2, 1, 2, 3, 1, 2, 3, 2, 1, 2

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,9

COMMENTS

The prime A000040(n) is in A034844 iff a(n) = 0; it is in A179336 iff a(n) > 0. [Reinhard Zumkeller, Jul 11 2010, corrected by M. F. Hasler, Aug 27 2012]

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

FORMULA

a(n) = A193238(A000040(n)). [Reinhard Zumkeller, Jul 19 2011]

MATHEMATICA

a[n_]:=Count[PrimeQ/@IntegerDigits[Prime[n]], True]

PROG

(PARI) a(n) = vecsum(apply(x->isprime(x), digits(prime(n)))); \\ Michel Marcus, Mar 15 2019

CROSSREFS

Cf. A019546 (primes whose digits are primes), A092629 (number of prime digits is nonprime), A104250 (sum of prime digits of n-th prime).

Cf. A000040, A034844, A179336.

Sequence in context: A372510 A240857 A374318 * A079066 A157188 A329257

Adjacent sequences: A109063 A109064 A109065 * A109067 A109068 A109069

KEYWORD

base,nonn

AUTHOR

Zak Seidov, Jun 17 2005

STATUS

approved