%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