A335860 Partial sums of A064097.

0, 1, 3, 5, 8, 11, 15, 18, 22, 26, 31, 35, 40, 45, 50, 54, 59, 64, 70, 75, 81, 87, 94, 99, 105, 111, 117, 123, 130, 136, 143, 148, 155, 161, 168, 174, 181, 188, 195, 201, 208, 215, 223, 230, 237, 245, 254, 260, 268, 275, 282, 289, 297, 304, 312, 319, 327, 335

Offset: 1

Author

Michael De Vlieger, Antti Karttunen, Robert G. Wilson v, Jun 27 2020

Keywords

• nonn

Crossrefs

Cf. A053044, A064097, A081401, A335429.

Programs

Mathematica

Accumulate@ Nest[Append[#1, #1[[#2 - #2/FactorInteger[#2][[1, 1]]]] + 1] & @@ {#, Length@ # + 1} &, {0}, 57]

Formula

a(n) = A064097(A000142(n)) = A064097(n!).

a(n) = A053044(n) + A335429(n).