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 A104250 #5 Apr 24 2014 17:59:20 %S A104250 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 A104250 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 A104250 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 A104250 Sum of prime digits of n-th prime. %F A104250 a(n)=A007605(n)-A104251(n) %e A104250 a(6)=3 because sum of prime digits of Prime[6]=13 is 3. %t A104250 npd[n_]:=Total[Select[IntegerDigits[n],PrimeQ]]; Table[npd[p],{p,Prime[ Range[100]]}] (* _Harvey P. Dale_, Apr 24 2014 *) %Y A104250 Sum of nonprime digits (1, 4, 6, 8, 9) of n-th prime: A104251. Primes A000040: sum of digits of primes: A007605. %K A104250 nonn,base %O A104250 1,1 %A A104250 _Zak Seidov_, Feb 26 2005