login
Sum of prime digits of n-th prime.
5

%I #5 Apr 24 2014 17:59:20

%S 2,3,5,7,0,3,7,0,5,2,3,10,0,3,7,8,5,0,7,7,10,7,3,0,7,0,3,7,0,3,9,3,10,

%T 3,0,5,12,3,7,10,7,0,0,3,7,0,2,7,11,4,8,5,2,7,14,5,2,9,16,2,5,5,10,3,

%U 6,10,6,13,10,3,11,8,10,13,10,6,3,10,0,0,0,2,3,6,3,3,0,12,0,3,7,7,7,0,0,8,5

%N Sum of prime digits of n-th prime.

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

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

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

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

%K nonn,base

%O 1,1

%A _Zak Seidov_, Feb 26 2005