OFFSET
0,2
COMMENTS
Partial sums of A109726.
LINKS
Ray Chandler, Table of n, a(n) for n = 0..10000
MATHEMATICA
f[n_] := Sum[Prime[k], {k, n}]; Table[f[n*(n+1)], {n, 0, 32}]
Module[{nn=40, ap}, ap=Join[{0}, Accumulate[Prime[Range[nn^2-nn+1]]]]; Table[ ap[[n^2-n+1]], {n, nn}]] (* Harvey P. Dale, Jul 14 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ray Chandler, Dec 07 2018
STATUS
approved