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 A130817 #11 Jul 03 2023 14:51:52
%S A130817 17,197,2041,19879,195226,1920513,18980518,188098738,1867197599,
%T A130817 18562452601,184727304713,1839816627645,18335212785129,182813489520604
%N A130817 a(n) is the total sum of the digits of n-digit primes.
%t A130817 Table[Plus @@ Flatten[IntegerDigits[Select[Range[10^(n - 1), 10^n], PrimeQ[ # ] &]]], {n, 7}]
%o A130817 (PARI) A007953(n)={ local(a=0,shft=n) ; while(shft!=0, a += shft %10 ; shft \= 10 ; ) ; return(a) ; }
%o A130817 A130817(n)={ local(a=0) ; forprime(p=10^(n-1),10^n, a += A007953(p) ; ) ; return(a) ; }
%o A130817 { for(n=1,30, print(A130817(n)" ") ; ) ; } \\ _R. J. Mathar_, Jan 16 2008
%Y A130817 Cf. A006879.
%K A130817 base,more,nonn
%O A130817 1,1
%A A130817 _Tanya Khovanova_, Jul 16 2007
%E A130817 a(8) from _R. J. Mathar_, Jan 16 2008
%E A130817 a(9)-a(11) from _Jon E. Schoenfield_, Dec 01 2008
%E A130817 a(12)-a(14) from _Giovanni Resta_, Jul 20 2015