%I #6 Jun 28 2020 16:14:06
%S 0,0,1,1,2,3,5,5,7,8,10,11,13,15,17,17,18,20,23,24,27,29,32,33,35,37,
%T 40,42,45,47,50,50,53,54,57,59,62,65,68,69,71,74,78,80,83,86,90,91,95,
%U 97,99,101,104,107,110,112,116,119,123,125,128,131,135,135,138,141,145,146,150,153,157,159,162,165,168,171
%N Partial sums of A329697.
%H Antti Karttunen, <a href="/A335429/b335429.txt">Table of n, a(n) for n = 1..14042</a>
%F a(1) = 0; for n > 1, a(n) = A329697(n) + a(n-1).
%F a(n) = A329697(A000142(n)) = A329697(n!).
%F a(n) = A335860(n) - A053044(n).
%o (PARI)
%o A329697(n) = if(!bitand(n,n-1),0,1+A329697(n-(n/vecmax(factor(n)[, 1]))));
%o A335429(n) = if(1==n,0,A329697(n)+A335429(n-1));
%Y Cf. A000142, A053044, A329697, A335860.
%K nonn
%O 1,5
%A _Antti Karttunen_, Jun 28 2020