A009829 Expansion of e.g.f.: tanh(x)*exp(sinh(x)).

0, 1, 2, 1, 0, 21, 88, -27, -704, 6121, 50464, -153559, -2089216, 13064637, 173223040, -996722035, -16120801280, 114653539281, 2032098365952, -15657589156655, -311227464130560, 2678537704263781, 58380271774087168

Offset

0,3

Links

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

Mathematica

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

Crossrefs

Sequence in context: A024026 A355006 A269946 * A202697 A369117 A268436

Adjacent sequences: A009826 A009827 A009828 * A009830 A009831 A009832

Keyword

sign,easy

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Previous Mathematica program replaced and definition clarified by Harvey P. Dale, Dec 28 2021

Status

approved