OFFSET
0,3
MATHEMATICA
m = 17; A[_] = 0;
Do[A[x_] = 1 + x A[x/(1 - x)] + O[x]^m // Normal, {m}];
CoefficientList[A[x], x]*Range[0, m - 1]! (* Jean-François Alcover, Oct 02 2019 *)
PROG
(PARI) Vec( serlaplace( 1 + x * serlaplace( exp(exp(x) - 1)))) /* Michael Somos, Jun 14 1999 */
(Sage) [factorial(m) * bell_number(m - 1) for m in range(17)] # Zerinvary Lajos, Jul 06 2008
CROSSREFS
KEYWORD
nonn,eigen
AUTHOR
Christian G. Bower, Mar 15 1999
EXTENSIONS
Description corrected by Michael Somos
STATUS
approved