A335429 Partial sums of A329697.

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, 40, 42, 45, 47, 50, 50, 53, 54, 57, 59, 62, 65, 68, 69, 71, 74, 78, 80, 83, 86, 90, 91, 95, 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

Offset: 1

Author

Antti Karttunen, Jun 28 2020

Keywords

• nonn

Links

• Antti Karttunen, Table of n, a(n) for n = 1..14042

Crossrefs

Cf. A000142, A053044, A329697, A335860.

Programs

PARI

A329697(n) = if(!bitand(n,n-1),0,1+A329697(n-(n/vecmax(factor(n)[, 1]))));
A335429(n) = if(1==n,0,A329697(n)+A335429(n-1));

Formula

a(1) = 0; for n > 1, a(n) = A329697(n) + a(n-1).

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

a(n) = A335860(n) - A053044(n).