A013337 E.g.f.: cosh(exp(x)-sec(x))=1+1/2!*x^2+5/4!*x^4-20/5!*x^5+37/6!*x^6...

1, 0, 1, 0, 5, -20, 37, -700, 1017, -28584, 83769, -1514040, 9304605, -108745468, 1172343421, -11027747380, 169643707825, -1567659515472, 28786470143025, -295814371937904, 5793951884450549, -69644639946402276

Offset

0,5

Links

Table of n, a(n) for n=0..21.

Mathematica

With[{nn=30}, CoefficientList[Series[Cosh[Exp[x]-Sec[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jan 16 2013 *)

Crossrefs

Sequence in context: A326005 A063110 A044066 * A031082 A161445 A238100

Adjacent sequences: A013334 A013335 A013336 * A013338 A013339 A013340

Keyword

sign

Author

Patrick Demichel (patrick.demichel(AT)hp.com)

Extensions

Definition clarified by Harvey P. Dale, Jan 16 2013

Status

approved