[go: up one dir, main page]

login
A179649
Sum of the primes < n*10^7.
3
3203324994356, 12272577818052, 26942805919966, 47088408550139, 72619548630277, 103468900363400, 139601928199359, 180946446237951, 227485624300931, 279209790387276, 336102842056834, 398010087395245
OFFSET
1,1
LINKS
MATHEMATICA
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}]]
CROSSREFS
Cf. A178221.
Sequence in context: A017400 A017664 A082250 * A080123 A209834 A230485
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jul 22 2010
STATUS
approved