A009632 Expansion of sinh(x)/cosh(log(1+x)).

0, 1, 0, -2, 12, -39, 60, 400, -4872, 29449, -75240, -792054, 14470500, -126336287, 451892532, 6486922156, -158017858320, 1804082178225, -8296746885072, -150859861660106, 4593579141365820, -64784591020059959

Offset

0,4

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Sinh[x]/Cosh[Log[1+x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Apr 17 2025 *)

Crossrefs

Sequence in context: A000913 A026575 A048349 * A190022 A086602 A019006

Adjacent sequences: A009629 A009630 A009631 * A009633 A009634 A009635

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, Apr 17 2025

Status

approved