OFFSET
1,7
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..65537
MATHEMATICA
With[{s = Array[# - 2^Floor@ Log2@ # &, 95]}, Table[DivisorSum[n, MoebiusMu[n/#] s[[#]] &], {n, Length@ s}]] (* Michael De Vlieger, Mar 13 2018 *)
PROG
CROSSREFS
KEYWORD
sign,look
AUTHOR
Antti Karttunen, Mar 11 2018
STATUS
approved