OFFSET
1,77
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..65537
FORMULA
a(1) = 1, and for n > 1, a(n) = -Sum_{d|n, d<n} A010060(n/d) * a(d).
MATHEMATICA
a[1] = 1; a[n_] := a[n] = -DivisorSum[n, a[#] * ThueMorse[n/#] &, # < n &]; Array[a, 100] (* Amiram Eldar, Mar 02 2023 *)
PROG
CROSSREFS
KEYWORD
sign
AUTHOR
Antti Karttunen, Mar 02 2023
STATUS
approved