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
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
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Jun 17 2005
STATUS
approved