A378524 Dirichlet inverse of A333794.

1, -3, -6, 2, -12, 23, -20, 0, 14, 47, -36, -27, -40, 79, 102, 0, -48, -81, -64, -57, 174, 143, -96, 10, 68, 159, -24, -97, -112, -517, -116, 0, 314, 191, 360, 170, -128, 255, 350, 22, -144, -885, -176, -177, -400, 383, -240, 0, 218, -393, 414, -197, -216, 211, 656, 38, 566, 447, -284, 947, -232, 463, -696, 0, 724

Offset

1,2

Links

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

Formula

a(1) = 1, and for n > 1, a(n) = -Sum_{d|n, d<n} A333794(n/d) * a(d).

Prog

(PARI)
A052126(n) = if(1==n, n, (n/vecmax(factor(n)[, 1])));
A333794(n) = if(1==n, n, n + A333794(n-A052126(n)));
memoA378524 = Map();
A378524(n) = if(1==n, 1, my(v); if(mapisdefined(memoA378524, n, &v), v, v = -sumdiv(n, d, if(d<n, A333794(n/d)*A378524(d), 0)); mapput(memoA378524, n, v); (v)));

Crossrefs

Cf. A052126, A333794.

Cf. also A378523.

Sequence in context: A268717 A002516 A073807 * A345671 A090774 A147995

Adjacent sequences: A378521 A378522 A378523 * A378525 A378526 A378527

Keyword

sign,new

Author

Antti Karttunen, Dec 01 2024

Status

approved