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,3

Links

Table of n, a(n) for n=1..60.

Formula

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

Mathematica

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

Crossrefs

Cf. A014963, A023900.

Sequence in context: A211360 A178866 A019427 * A325830 A331155 A008299

Adjacent sequences: A364847 A364848 A364849 * A364851 A364852 A364853

Keyword

frac,sign

Author

Mats Granvik, Aug 10 2023

Extensions

Definition corrected by Georg Fischer, Apr 11 2024

Status

approved