OFFSET
0,3
COMMENTS
Convolution inverse of A307649.
FORMULA
G.f.: Product_{k>=1} 1/(1 + x^k)^(mu(k)*k).
EXAMPLE
G.f.: A(x) = 1 - x + 3*x^2 + x^4 + 10*x^5 - 13*x^6 + 33*x^7 - 24*x^8 + 26*x^9 + 22*x^10 - 53*x^11 + 148*x^12 - 181*x^13 + ...
MATHEMATICA
terms = 47; CoefficientList[Series[Product[1/(1 + x^k)^(MoebiusMu[k] k), {k, 1, terms}], {x, 0, terms}], x]
terms = 47; A[_] = 1; Do[A[x_] = 1/((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 20 2019
STATUS
approved