%I #18 Apr 11 2024 15:56:32
%S -1,1,3,1,10,-1,21,1,3,-2,55,-1,78,-3,-4,1,136,-1,171,-2,-6,-5,253,-1,
%T 10,-6,3,-3,406,4,465,1,-10,-8,-12,-1,666,-9,-12,-2,820,6,903,-5,-4,
%U -11,1081,-1,21,-2,-16,-6,1378,-1,-20,-3,-18,-14,1711,4
%N a(n) = negated numerator of A014963(n)*A023900(n)/2.
%F a(n) = - numerator of A014963(n)*A023900(n)/2.
%t Numerator[Table[- Exp[MangoldtLambda[n]] * Total[MoebiusMu[Divisors[n]]*Divisors[n]]/2, {n, 1, 60}]]
%Y Cf. A014963, A023900.
%K frac,sign
%O 1,3
%A _Mats Granvik_, Aug 10 2023
%E Definition corrected by _Georg Fischer_, Apr 11 2024