OFFSET
9,1
LINKS
MATHEMATICA
m = 20; L[x_] = Log[1 - x] + O[x]^m // Normal; A[_] = 0;
Do[A[x_] = x y - x L[A[x]] + O[x]^k // Normal // Expand, {k, m}];
Drop[(SeriesCoefficient[#, {y, 0, 8}] & /@ CoefficientList[A[x], x]) * Range[0, m - 1]!, 9] (* Jean-François Alcover, Nov 01 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Christian G. Bower, May 15 2000
STATUS
approved