|
| |
|
|
A099824
|
|
Sum of the first 10^n primes.
|
|
4
| |
|
|
2, 129, 24133, 3682913, 496165411, 62260698721, 7472966967499, 870530414842019, 99262851056183695, 11138479445180240497, 1234379338586942892505, 135436174616790299414111
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
LINKS
| C. Hilliard, SumPrimes, June 2008.
|
|
|
MATHEMATICA
| NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; k = p = 1; s = 0; Do[ While[p = NextPrim[p]; s = s + p; k < 10^n, k++ ]; k++; Print[s], {n, 0, 8}]
|
|
|
PROG
| (PARI) sumprimes(n) = a=1; sum(x=1, n, a=nextprime(a+1))
|
|
|
CROSSREFS
| Cf. A000040, A006988, A007504, A099825, A099826.
Sequence in context: A153425 A090121 A003369 * A190578 A098533 A158110
Adjacent sequences: A099821 A099822 A099823 * A099825 A099826 A099827
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 25 2004
|
|
|
EXTENSIONS
| a(9) from Hans Havermann (gladhobo(AT)teksavvy.com), May 06 2005
a(10) computed by Cino Hilliard, added to this entry Apr 28 2006
a(11) computed by Cino Hilliard, added to this entry Oct 03 2006
|
| |
|
|
