A009234 Expansion of e.g.f.: exp(sinh(x)/cos(x)).

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

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

Sequence in context: A151479 A330800 A293458 * A211474 A149744 A149745

Adjacent sequences: A009231 A009232 A009233 * A009235 A009236 A009237

Keyword

nonn,easy

Author

R. H. Hardin

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