OFFSET
0,7
LINKS
Vladimir Kruchinin, D. V. Kruchinin, Composita and their properties, arXiv:1103.2582 [math.CO], 2011-2013.
MATHEMATICA
m = maxExponent = 31;
A81[_] = 0; Do[A81[x_] = x*Exp[Sum[A81[x^k]/k, {k, 1, m}] + O[x]^m] // Normal, {m}];
A[x_] = Sum[a[k] x^k, {k, 0, m}];
cc = CoefficientList[A81[x] - x A[A81[x]] + O[x]^m, x];
Table[a[n], {n, 0, m-2}] /. Solve[Thread[cc == 0]] // First (* Jean-François Alcover, Aug 08 2018 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Vladimir Kruchinin, Feb 19 2011
STATUS
approved