|
%I #9 Feb 17 2018 10:28:01
%S 3203324994356,12272577818052,26942805919966,47088408550139,
%T 72619548630277,103468900363400,139601928199359,180946446237951,
%U 227485624300931,279209790387276,336102842056834,398010087395245
%N Sum of the primes < n*10^7.
%H Robert G. Wilson v, <a href="/A179649/b179649.txt">Table of n, a(n) for n = 1..2500</a>
%t k = 1; p = 2; s = 0; lst = {}; While[k < 13, While[p < 10^7*k, s = s + p; p = NextPrime@p]; k++; AppendTo[lst, s]; Print[{k - 1, s}]]
%Y Cf. A178221.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Jul 22 2010
|
