A109402 Partial sums of A109400.

1, 3, 4, 6, 8, 11, 12, 14, 17, 19, 22, 27, 28, 30, 33, 37, 39, 42, 47, 54, 55, 57, 60, 64, 69, 71, 74, 79, 86, 97, 98, 100, 103, 107, 112, 118, 120, 123, 128, 135, 146, 159, 160, 162, 165, 169, 174, 180, 187, 189, 192, 197, 204, 215, 228, 245, 246

Offset: 1

Author

Reinhard Zumkeller, Jun 27 2005

Keywords

• nonn

Comments

a(n) = Sum(A109400(m): 1<=m<=n).

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A007504, A014370.

Programs

Mathematica

Accumulate[With[{prs=Prime[Range[20]]},Flatten[Table[{Range[n],Take[prs,n]},{n,10}]]]] (* Harvey P. Dale, May 25 2025 *)