OFFSET
0,4
MATHEMATICA
With[{nn=20}, CoefficientList[Series[Exp[Tan[Sinh[x]]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jun 04 2018 *)
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, Jun 04 2018
STATUS
approved