OFFSET
0,4
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..200
MATHEMATICA
With[{nn=20}, CoefficientList[Series[Exp[Sinh[x]/Cos[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Dec 07 2013 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
Extended and signs tested by Olivier Gérard, Mar 15 1997
Definition clarified and prior Mathematica program replaced by Harvey P. Dale, Dec 07 2013
STATUS
approved