A013315 Expansion of e.g.f.: sinh(exp(x)-cos(x))=x+2/2!*x^2+2/3!*x^3+12/4!*x^4+72/5!*x^5...

0, 1, 2, 2, 12, 72, 272, 968, 5488, 36144, 204512, 1135840, 7577856, 56287168, 406104064, 2933384704, 23084016896, 194919700480, 1664627753984, 14417113925632, 131148402111488, 1251412558922752, 12211894620549120

Offset

1,3

Links

Table of n, a(n) for n=1..23.

Mathematica

With[{nn=30}, CoefficientList[Series[Sinh[Exp[x]-Cos[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jul 30 2019 *)

Crossrefs

Sequence in context: A291541 A180072 A367546 * A032321 A013311 A303343

Adjacent sequences: A013312 A013313 A013314 * A013316 A013317 A013318

Keyword

nonn

Author

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

Extensions

Zero prepended and definition clarified by Harvey P. Dale, Jul 30 2019

Status

approved