OFFSET
1
LINKS
MATHEMATICA
s[1] = 1; s[n_] := s[n] = -DivisorSum[n, s[#] * ThueMorse[n/#] &, # < n &]; a[n_] := Mod[s[n], 2]; Array[a, 100] (* Amiram Eldar, Mar 02 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 02 2023
STATUS
approved