1,1

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

a(n)=A007605(n)-A104251(n)

a(6)=3 because sum of prime digits of Prime[6]=13 is 3.

npd[n_]:=Total[Select[IntegerDigits[n], PrimeQ]]; Table[npd[p], {p, Prime[ Range[100]]}] (* Harvey P. Dale, Apr 24 2014 *)

Sum of nonprime digits (1, 4, 6, 8, 9) of n-th prime: A104251. Primes A000040: sum of digits of primes: A007605.

Sequence in context: A185107 A115259 A039709 * A171013 A020919 A126053

Adjacent sequences: A104247 A104248 A104249 * A104251 A104252 A104253

nonn,base

Zak Seidov, Feb 26 2005

approved