A322420 Sum of the first n*(n+1) primes.
0, 5, 41, 197, 639, 1593, 3447, 6601, 11599, 19113, 29897, 44683, 64615, 90763, 124211, 166551, 218759, 283081, 360979, 454095, 564319, 694297, 846287, 1021511, 1223095, 1454367, 1717867, 2016457, 2352313, 2728929, 3149913, 3619807, 4141547
Offset: 0
Keywords
Links
- Ray Chandler, Table of n, a(n) for n = 0..10000
Programs
-
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 *)
Comments