OFFSET
1,3
MATHEMATICA
nmax = 27; A[_] = 0; Do[A[x_] = x Exp[-Sum[A[-(-x)^k]^2/(k (-x)^k), {k, 1, nmax}]] + O[x]^(nmax + 1) // Normal, nmax + 1]; CoefficientList[A[x], x] // Rest
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, May 26 2023
STATUS
approved