login
A346237
Dirichlet inverse of A005187.
2
1, -3, -4, 2, -8, 14, -11, 0, 0, 30, -19, -14, -23, 41, 38, 0, -32, -2, -35, -34, 49, 73, -42, 4, 17, 89, 14, -46, -54, -172, -57, 0, 88, 126, 109, 10, -71, 137, 110, 12, -79, -219, -82, -86, -6, 164, -89, 0, 26, -103, 158, -106, -102, -76, 199, 16, 170, 212, -113, 274, -117, 223, 16, 0, 240, -406, -131, -154, 201
OFFSET
1,2
LINKS
FORMULA
a(n) = A346238(n) - A005187(n).
PROG
(PARI)
up_to = 65537;
DirInverseCorrect(v) = { my(u=vector(#v)); u[1] = (1/v[1]); for(n=2, #v, u[n] = (-u[1]*sumdiv(n, d, if(d<n, v[n/d]*u[d], 0)))); (u) }; \\ Compute the Dirichlet inverse of the sequence given in input vector v.
A005187(n) = { my(s=n); while(n>>=1, s+=n); s; };
v346237 = DirInverseCorrect(vector(up_to, n, A005187(n)));
A346237(n) = v346237[n];
CROSSREFS
Cf. also A297111, A317927, A317928.
Sequence in context: A120239 A082362 A082364 * A199271 A215175 A091477
KEYWORD
sign
AUTHOR
Antti Karttunen, Jul 13 2021
STATUS
approved