A009736 Expansion of e.g.f.: tan(x)*exp(sinh(x)).

0, 1, 2, 5, 16, 61, 248, 1217, 6336, 38137, 242464, 1753245, 13219328, 112141173, 982066816, 9583252569, 95757641728, 1057866255601, 11884764271104, 146689651631285, 1830773338714112, 24972471277262509

Offset

0,3

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Tan[x]*Exp[Sinh[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Dec 30 2018 *)

Crossrefs

Sequence in context: A005036 A012051 A012159 * A380682 A349458 A370797

Adjacent sequences: A009733 A009734 A009735 * A009737 A009738 A009739

Keyword

nonn,easy

Author

R. H. Hardin

Extensions

Extended and signs tested Mar 15 1997 by Olivier Gérard.

Previous Mathematica program replaced and definition clarified by Harvey P. Dale, Dec 30 2018

Status

approved