OFFSET
0,3
MATHEMATICA
With[{nn=20}, CoefficientList[Series[Tan[Tanh[x]*Exp[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Sep 17 2016 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
Extended and signs tested Mar 15 1997 by Olivier Gérard.
Definition clarified and prior Mathematica program replaced by Harvey P. Dale, Sep 17 2016
STATUS
approved