login
A009234
Expansion of e.g.f.: exp(sinh(x)/cos(x)).
2
1, 1, 1, 5, 17, 77, 457, 2641, 19777, 149529, 1305489, 12183613, 122670033, 1342074021, 15462740633, 192192501897, 2502900454401, 34713417890609, 504155298072609, 7713202738776565, 123438576028985873
OFFSET
0,4
LINKS
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
Sequence in context: A151479 A330800 A293458 * A211474 A149744 A149745
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