A323912 Dirichlet inverse of A083254(n) (= 2*phi(n)-n).

1, 0, -1, 0, -3, 2, -5, 0, -2, 2, -9, 4, -11, 2, 5, 0, -15, 2, -17, 4, 7, 2, -21, 8, -6, 2, -4, 4, -27, -2, -29, 0, 11, 2, 17, 8, -35, 2, 13, 8, -39, -6, -41, 4, 8, 2, -45, 16, -10, -2, 17, 4, -51, 0, 29, 8, 19, 2, -57, 4, -59, 2, 12, 0, 35, -14, -65, 4, 23, -10, -69, 24, -71, 2, 4, 4, 47, -18, -77, 16, -8, 2, -81, -4, 47, 2, 29, 8, -87, 4

Offset

1,5

Links

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

Prog

(PARI)
up_to = 16384;
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.
A083254(n) = (2*eulerphi(n)-n);
v323912 = DirInverse(vector(up_to, n, A083254(n)));
A323912(n) = v323912[n];

Crossrefs

Cf. A083254, A323910, A323913.

Sequence in context: A318304 A318989 A082493 * A021887 A085015 A083254

Adjacent sequences: A323909 A323910 A323911 * A323913 A323914 A323915

Keyword

sign

Author

Antti Karttunen, Feb 12 2019

Status

approved