A009676 Expansion of e.g.f.: tan(sinh(log(1+x))).

0, 1, -1, 5, -24, 166, -1350, 13082, -145376, 1827376, -25592400, 395118272, -6664254432, 121895495632, -2402856317680, 50776649007632, -1144984530078720, 27440409496420096, -696465326225541888

Offset

0,4

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Tan[Sinh[Log[1+x]]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, May 06 2026 *)

Crossrefs

Sequence in context: A009424 A184597 A009601 * A192995 A027851 A120765

Adjacent sequences: A009673 A009674 A009675 * A009677 A009678 A009679

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Definition clarified and prior Mathematica program replaced by Harvey P. Dale, May 06 2026

Status

approved