|
|
|
|
1, -1, -2, -1, -4, 32, -6, -1, -2, 94, -10, 32, -12, 188, 218, -1, -16, 32, -18, 94, 432, 472, -22, 32, -4, 662, -2, 188, -28, -809648, -30, -1, 1076, 1138, 1214, 32, -36, 1424, 1506, 94, -40, -3111034, -42, 472, 218, 2092, -46, 32, -6, 94, 2582, 662, -52, 32
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
EXAMPLE
|
For n = 4, A007955(n) = b(n): a(4) = b(1)*mu(1) + b(2)*mu(2) + b(4)*mu(4) = 1*1 + 2*(-1) + 8*0 = -1.
|
|
MATHEMATICA
|
a[n_] := DivisorSum[n, #^(DivisorSigma[0, #]/2) * MoebiusMu[#] &]; Array[a, 60] (* Amiram Eldar, Aug 06 2024 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|