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

1, 1, 1, 0, -3, -12, -27, 248, 2425, -3504, -143031, -115904, 8956533, 17130688, -618394579, -265254272, 46232494321, -452604387072, -3608163168111, 186145181366272, 254307747662573, -61549828575435776, 15725973912655477

Offset

0,5

Links

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

Mathematica

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

Crossrefs

Sequence in context: A183503 A216713 A133647 * A260815 A083543 A083538

Adjacent sequences: A009219 A009220 A009221 * A009223 A009224 A009225

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, May 03 2024

Status

approved