login
Sum of the prime digits of n.
5

%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