A078472 Partial sums of A035282.

1, 6, 12, 22, 46, 67, 107, 137, 168, 228, 292, 342, 426, 546, 606, 656, 800, 920, 1044, 1129, 1273, 1473, 1633, 1759, 1850, 2030, 2270, 2510, 2665, 2869, 3089, 3389, 3799, 4119, 4275, 4539, 4819, 5029, 5389, 5689, 5993, 6377, 6797, 6967, 7367, 7871, 8231

Offset

1,2

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Mathematica

f[p_, e_] := Which[p == 5, (5^(e + 1) - 1)/4, (m = Mod[p, 5]) == 2 || m == 3, If[EvenQ[e], (p^(e + 2) - 1)/(p^2 - 1), 0], m == 1 || m == 4, Sum[(k + 1)*(e - k + 1)*p^k, {k, 0, e}]]; s[1] = 1; s[n_] := Times @@ f @@@ FactorInteger[n]; Accumulate[Select[Array[s, 200], # > 0 &]] (* Amiram Eldar, May 13 2022 *)

Crossrefs

Cf. A078471, A035282.

Distinct terms of A353997.

Sequence in context: A266085 A144568 A222001 * A192754 A005694 A309359

Adjacent sequences: A078469 A078470 A078471 * A078473 A078474 A078475

Keyword

nonn

Author

Benoit Cloitre, Dec 31 2002

Extensions

a(20) and a(36) corrected by Georg Fischer, Aug 31 2020

Status

approved