OFFSET
1,1
EXAMPLE
a(6)=3 because sum of prime digits of Prime[6]=13 is 3.
MATHEMATICA
npd[n_]:=Total[Select[IntegerDigits[n], PrimeQ]]; Table[npd[p], {p, Prime[ Range[100]]}] (* Harvey P. Dale, Apr 24 2014 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Feb 26 2005
STATUS
approved