|
%I #9 Feb 17 2018 10:28:26
%S 279209790387276,1075207199997334,2367646772295462,4146437503168147,
%T 6404774487532576,9137303389808024,12340337443955708,
%U 16010026481858292,20143329357815162,24739512092254535,29795030058292249
%N Sum of the primes < n*10^8.
%H Robert G. Wilson v, <a href="/A179660/b179660.txt">Table of n, a(n) for n = 1..250</a>
%t k = 1; p = 2; s = 0; lst = {}; While[k < 12, While[p < 10^8*k, s = s + p; p = NextPrime@p]; k++; AppendTo[lst, s]; Print[{k - 1, s}]]
%Y Cf. A046731, A178221, A179649, A145065.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Jul 23 2010
|
