%I #14 Feb 07 2021 07:02:07
%S 0,2,3,0,5,0,7,0,0,0,0,2,3,0,5,0,7,0,0,2,2,4,5,2,7,2,9,2,2,3,3,5,6,3,
%T 8,3,10,3,3,0,0,2,3,0,5,0,7,0,0,5,5,7,8,5,10,5,12,5,5,0,0,2,3,0,5,0,7,
%U 0,0,7,7,9,10,7,12,7,14,7,7,0,0,2,3,0,5,0,7,0,0,0,0,2,3,0,5,0,7,0,0,0,0,2,3
%N Sum of the prime digits of n.
%H Harvey P. Dale, <a href="/A085563/b085563.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n)+A085562(n) = A007953(n). [_R. J. Mathar_, Aug 04 2008]
%e a(1234567)=17 because 2+3+5+7=17.
%t Table[Total[Select[IntegerDigits[n],PrimeQ]],{n,110}] (* _Harvey P. Dale_, Aug 15 2020 *)
%o (PARI) a(n) = vecsum(select(isprime, digits(n))); \\ _Michel Marcus_, Feb 06 2021
%Y Cf. A007953, A085562.
%K base,easy,nonn
%O 1,2
%A _Jason Earls_, Jul 05 2003