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

Author

Benoit Cloitre, Dec 31 2002

Keywords

• nonn

Links

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

Crossrefs

Cf. A078471, A035282.

Distinct terms of A353997.

Programs

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 *)

Extensions

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