OFFSET
0,3
MATHEMATICA
With[{nn=30}, CoefficientList[Series[Tan[x]*Exp[Sinh[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Dec 30 2018 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
Extended and signs tested Mar 15 1997 by Olivier Gérard.
Previous Mathematica program replaced and definition clarified by Harvey P. Dale, Dec 30 2018
STATUS
approved