OFFSET
1,8
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..8191
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..65537
MATHEMATICA
Table[DivisorSum[n, MoebiusMu[n/#1]*#2/GCD[#2, #3] & @@ {#, EulerPhi[#], # - 1} &], {n, 95}] (* Michael De Vlieger, Dec 29 2020 *)
PROG
CROSSREFS
KEYWORD
sign
AUTHOR
Antti Karttunen, Dec 29 2020
STATUS
approved