OFFSET
1,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..1001
FORMULA
a(1) = 1; a(n) = -Sum_{d|n, d < n} A011782(n/d) * a(d).
G.f. A(x) satisfies: A(x) = x - Sum_{k>=2} 2^(k-1) * A(x^k). - Ilya Gutkovskiy, Feb 23 2022
MATHEMATICA
a[1] = 1; a[n_] := a[n] = -DivisorSum[n, a[#] * 2^(n/# - 1) &, # < n &]; Array[a, 36] (* Amiram Eldar, Nov 22 2021 *)
PROG
CROSSREFS
KEYWORD
sign
AUTHOR
Antti Karttunen, Nov 22 2021
STATUS
approved