OFFSET
4,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, 3}]& /@ CoefficientList[A[x], x]) * Range[0, m-1]!, 4] (* Jean-François Alcover, Nov 01 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Christian G. Bower, May 15 2000
STATUS
approved