OFFSET
1,6
FORMULA
MATHEMATICA
f[n_] := DivisorSum[n, MoebiusMu[#] # &]; Table[Sum[If[If[Mod[n, k] == 0, 1 - k, 1] == f[GCD[n, k]], f[GCD[n, k]], 0], {k, 1, n}], {n, 1, 70}]
CROSSREFS
KEYWORD
sign
AUTHOR
Mats Granvik, Aug 13 2023
STATUS
approved