OFFSET
0,4
MATHEMATICA
nmax = 26; A[_] = 0; Do[A[x_] = x + x A[A[-x]] + O[x]^(nmax + 1) // Normal, nmax + 1]; CoefficientList[A[x], x]
CROSSREFS
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Jan 27 2022
STATUS
approved