|
Search: id:A130817
|
|
|
| A130817 |
|
a(n) is the total sum of the digits of n-digit primes. |
|
+0
1
|
|
| 17, 197, 2041, 19879, 195226, 1920513, 18980518, 188098738
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
Table[Plus @@ Flatten[IntegerDigits[Select[Range[10^(n - 1), 10^n], PrimeQ[ # ] &]]], {n, 7}]
|
|
PROGRAM
|
(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 (mathar(AT)strw.leidenuniv.nl), Jan 16 2008
|
|
CROSSREFS
|
Sequence in context: A018250 A021184 A069361 this_sequence A055432 A021379 A017932
Adjacent sequences: A130814 A130815 A130816 this_sequence A130818 A130819 A130820
|
|
KEYWORD
|
base,more,nonn
|
|
AUTHOR
|
Tanya Khovanova (tanyakh(AT)yahoo.com), Jul 16 2007
|
|
EXTENSIONS
|
One more term from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jan 16 2008
|
|
|
Search completed in 0.002 seconds
|
