OFFSET
0,3
COMMENTS
Weigh transform of A055615.
FORMULA
G.f.: Product_{k>=1} (1 + x^k)^(mu(k)*k).
EXAMPLE
G.f.: A(x) = 1 + x - 2*x^2 - 5*x^3 + 4*x^5 + 9*x^6 + 2*x^7 - 10*x^8 - 21*x^9 + 29*x^10 + 15*x^11 - 18*x^12 - 80*x^13 + ...
MATHEMATICA
terms = 49; CoefficientList[Series[Product[(1 + x^k)^(MoebiusMu[k] k), {k, 1, terms}], {x, 0, terms}], x]
terms = 49; A[_] = 1; Do[A[x_] = (1 + x)/Product[A[x^k]^k, {k, 2, terms}] + O[x]^(terms + 1) // Normal, terms + 1]; CoefficientList[A[x], x]
CROSSREFS
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Apr 19 2019
STATUS
approved