A130817 a(n) is the total sum of the digits of n-digit primes.

17, 197, 2041, 19879, 195226, 1920513, 18980518, 188098738, 1867197599, 18562452601, 184727304713, 1839816627645, 18335212785129, 182813489520604

Offset

1,1

Links

Table of n, a(n) for n=1..14.

Mathematica

Table[Plus @@ Flatten[IntegerDigits[Select[Range[10^(n - 1), 10^n], PrimeQ[ # ] &]]], {n, 7}]

Prog

(PARI) A007953(n)={ local(a=0, shft=n) ; while(shft!=0, a += shft %10 ; shft \= 10 ; ) ; return(a) ; }
A130817(n)={ local(a=0) ; forprime(p=10^(n-1), 10^n, a += A007953(p) ; ) ; return(a) ; }
{ for(n=1, 30, print(A130817(n)" ") ; ) ; } \\ R. J. Mathar, Jan 16 2008

Crossrefs

Cf. A006879.

Sequence in context: A021184 A069361 A177135 * A055432 A154276 A021379

Adjacent sequences: A130814 A130815 A130816 * A130818 A130819 A130820

Keyword

base,more,nonn

Author

Tanya Khovanova, Jul 16 2007

Extensions

a(8) from R. J. Mathar, Jan 16 2008

a(9)-a(11) from Jon E. Schoenfield, Dec 01 2008

a(12)-a(14) from Giovanni Resta, Jul 20 2015

Status

approved