login
Partial sums of A064097.
2

%I #9 Jul 08 2020 20:41:09

%S 0,1,3,5,8,11,15,18,22,26,31,35,40,45,50,54,59,64,70,75,81,87,94,99,

%T 105,111,117,123,130,136,143,148,155,161,168,174,181,188,195,201,208,

%U 215,223,230,237,245,254,260,268,275,282,289,297,304,312,319,327,335

%N Partial sums of A064097.

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

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

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

%Y Cf. A053044, A064097, A081401, A335429.

%K nonn

%O 1,3

%A _Michael De Vlieger_, _Antti Karttunen_, _Robert G. Wilson v_, Jun 27 2020