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

Links

Table of n, a(n) for n=1..58.

Formula

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

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

Mathematica

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

Crossrefs

Cf. A053044, A064097, A081401, A335429.

Sequence in context: A260273 A022433 A284442 * A207038 A081401 A003311

Adjacent sequences: A335857 A335858 A335859 * A335861 A335862 A335863

Keyword

nonn

Author

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

Status

approved