A009802 Expansion of tanh(sinh(log(1+x))).

0, 1, -1, 1, 0, -14, 150, -1322, 10976, -87824, 655920, -3981152, 5308512, 458307760, -12593915152, 254156155888, -4589735470080, 77850265751296, -1250201506099968, 18653867368039168, -241973220007075840

Offset

0,6

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Tanh[Sinh[Log[1+x]]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Oct 16 2025 *)

Crossrefs

Sequence in context: A222614 A019521 A009614 * A153598 A180347 A262183

Adjacent sequences: A009799 A009800 A009801 * A009803 A009804 A009805

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Previous Mathematica program replaced by Harvey P. Dale, Oct 16 2025

Status

approved