cp's OEIS Frontend

A099824 a(n) = Sum of the first 10^n primes.

%I A099824 #104 Aug 04 2023 02:44:58
%S A099824 2,129,24133,3682913,496165411,62260698721,7472966967499,
%T A099824 870530414842019,99262851056183695,11138479445180240497,
%U A099824 1234379338586942892505,135436174616790289414111,14738971133550183905879827,1593061976858155930556059673,171191473337951767580578821529
%N A099824 a(n) = Sum of the first 10^n primes.
%H A099824 David Baugh, <a href="/A099824/b099824.txt">Table of n, a(n) for n = 0..23</a> [terms a(0)-a(17) from Marc Deleglise; terms a(18)-a(21) from Kim Walisch]
%H A099824 Cino Hilliard, <a href="http://groups.google.com/group/sumprimes/web/sum-of-primes-formulas">SumPrimes</a>, June 2008. [broken link]
%F A099824 a(n) = Sum_{i=1..10^n} A000040(i). - _José de Jesús Camacho Medina_, Dec 27 2014 (corrected by _Joerg Arndt_, Jan 05 2015)
%e A099824 For n=1, the sum of the first 10^1 = 10 primes is 2 + 3 + 5 + 7 + 11 + 13 + 17 + 19 + 23 + 29 = 129, so a(1) = 129. - _Michael B. Porter_, Aug 08 2016
%t A099824 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}]
%t A099824 Table[Sum[Prime[i], {i, 10^n}], {n, 0, 5}] (* _José de Jesús Camacho Medina_, Dec 27 2014 *)
%o A099824 (PARI) vecA099824(n)={ my(s,c,k=1,L:list); L=List();
%o A099824 forprime(m=2,prime(10^n),s+=m;c++; if(c==k,listput(L,s);k*=10));
%o A099824 return(vector(#L,i,L[i]))} \\ _R. J. Cano_, Aug 12 2016
%Y A099824 Cf. A000040, A006988, A007504, A099825, A099826.
%K A099824 nonn
%O A099824 0,1
%A A099824 _Robert G. Wilson v_, Oct 25 2004
%E A099824 a(9) from _Hans Havermann_, May 06 2005
%E A099824 a(10) from _Cino Hilliard_, Apr 28 2006
%E A099824 a(11) from _Cino Hilliard_, Oct 03 2006
%E A099824 a(12)-a(13) from _Hiroaki Yamanouchi_, Jul 06 2014
%E A099824 a(11) corrected by _Marc Deleglise_, Apr 03 2016
%E A099824 a(14)-a(17) from _Marc Deleglise_, Apr 03 2016
%E A099824 a(18)-a(20) from _Kim Walisch_, Jun 05 2016
%E A099824 a(21) from _Kim Walisch_, Jun 11 2016
%E A099824 a(22) from _David Baugh_ using Kim Walisch's primesum program, Jun 21 2016
%E A099824 a(23) from _David Baugh_ using Kim Walisch's primesum program, Sep 26 2016