|
%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
|
