OFFSET
0,3
FORMULA
EXAMPLE
E.g.f.: A(x) = 1 - x - 3*x^2/2! - 7*x^3/3! - 95*x^4/4! + 699*x^5/5! - 1739*x^6/6! + 106973*x^7/7! + 236097*x^8/! + 5525495*x^9/9! + ...
MATHEMATICA
terms = 21; A[_] = 1; Do[A[x_] = Exp[-x] Product[A[x^k]^k, {k, 2, terms}] + O[x]^(terms + 1) // Normal, terms + 1]; CoefficientList[A[x], x] Range[0, terms]!
CROSSREFS
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Apr 20 2019
STATUS
approved