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

0, 1, -1, 1, 0, -14, 150, -1154, 6272, -10016, -305280, 5160376, -49699056, 248457496, 1844013080, -69019386344, 1062420810240, -9790634309504, 3214679190912, 2104758733135744, -52208434879690240, 764746718991861376

Offset

0,6

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Sinh[Tanh[Log[1+x]]], {x, 0, nn}], x] Range[ 0, nn]!] (* Harvey P. Dale, Dec 04 2020 *)

Crossrefs

Sequence in context: A389938 A222614 A019521 * A009802 A153598 A180347

Adjacent sequences: A009611 A009612 A009613 * A009615 A009616 A009617

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, Dec 04 2020

Status

approved