A323407 Dirichlet inverse of A047994, unitary phi.

1, -1, -2, -2, -4, 2, -6, -2, -4, 4, -10, 4, -12, 6, 8, 0, -16, 4, -18, 8, 12, 10, -22, 4, -8, 12, -2, 12, -28, -8, -30, 4, 20, 16, 24, 8, -36, 18, 24, 8, -40, -12, -42, 20, 16, 22, -46, 0, -12, 8, 32, 24, -52, 2, 40, 12, 36, 28, -58, -16, -60, 30, 24, 8, 48, -20, -66, 32, 44, -24, -70, 8, -72, 36, 16, 36, 60, -24, -78, 0, 8, 40, -82, -24

Offset

1,3

Links

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

Prog

(PARI)
up_to = 65537;
DirInverse(v) = { my(u=vector(#v)); u[1] = (1/v[1]); for(n=2, #v, u[n] = -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.
A047994(n)=my(f=factor(n)~); prod(i=1, #f, f[1, i]^f[2, i]-1);
v323407 = DirInverse(vector(up_to, n, A047994(n)));
A323407(n) = v323407[n];

Crossrefs

Cf. A047994, A323408.

Cf. also A023900.

Sequence in context: A082174 A278235 A074369 * A354875 A073348 A287093

Adjacent sequences: A323404 A323405 A323406 * A323408 A323409 A323410

Keyword

sign

Author

Antti Karttunen, Jan 15 2019

Status

approved