A364850 a(n) = negated numerator of A014963(n)*A023900(n)/2.

-1, 1, 3, 1, 10, -1, 21, 1, 3, -2, 55, -1, 78, -3, -4, 1, 136, -1, 171, -2, -6, -5, 253, -1, 10, -6, 3, -3, 406, 4, 465, 1, -10, -8, -12, -1, 666, -9, -12, -2, 820, 6, 903, -5, -4, -11, 1081, -1, 21, -2, -16, -6, 1378, -1, -20, -3, -18, -14, 1711, 4

Offset: 1

Author

Mats Granvik, Aug 10 2023

Keywords

• frac
• sign

Crossrefs

Cf. A014963, A023900.

Programs

Mathematica

Numerator[Table[- Exp[MangoldtLambda[n]] * Total[MoebiusMu[Divisors[n]]*Divisors[n]]/2, {n, 1, 60}]]

Formula

a(n) = - numerator of A014963(n)*A023900(n)/2.

Extensions

Definition corrected by Georg Fischer, Apr 11 2024