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,5

Links

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

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).

Prog

(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));

Crossrefs

Cf. A000142, A053044, A329697, A335860.

Sequence in context: A089625 A092391 A187322 * A156899 A347737 A332286

Adjacent sequences: A335426 A335427 A335428 * A335430 A335431 A335432

Keyword

nonn

Author

Antti Karttunen, Jun 28 2020

Status

approved