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,2

Comments

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

Links

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

Mathematica

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

Crossrefs

Cf. A007504, A014370.

Sequence in context: A337455 A080728 A047414 * A020901 A181714 A371594

Adjacent sequences: A109399 A109400 A109401 * A109403 A109404 A109405

Keyword

nonn

Author

Reinhard Zumkeller, Jun 27 2005

Status

approved