This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A085563 #14 Feb 07 2021 07:02:07
%S A085563 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 A085563 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 A085563 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 A085563 Sum of the prime digits of n.
%H A085563 Harvey P. Dale, <a href="/A085563/b085563.txt">Table of n, a(n) for n = 1..1000</a>
%F A085563 a(n)+A085562(n) = A007953(n). [_R. J. Mathar_, Aug 04 2008]
%e A085563 a(1234567)=17 because 2+3+5+7=17.
%t A085563 Table[Total[Select[IntegerDigits[n],PrimeQ]],{n,110}] (* _Harvey P. Dale_, Aug 15 2020 *)
%o A085563 (PARI) a(n) = vecsum(select(isprime, digits(n))); \\ _Michel Marcus_, Feb 06 2021
%Y A085563 Cf. A007953, A085562.
%K A085563 base,easy,nonn
%O A085563 1,2
%A A085563 _Jason Earls_, Jul 05 2003