login
Partial sums of A329697.
3

%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