OFFSET
1,1
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..2500
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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jul 22 2010
STATUS
approved