A009519 Expansion of e.g.f.: sin(tanh(log(1+x))).

0, 1, -1, -1, 12, -44, 0, 1364, -11312, 34588, 378900, -7237396, 57785376, -13438424, -7111845832, 116461238984, -835329363840, -6161526961904, 288993527986032, -4444723274423248, 22035938200252480, 733027816359058816

Offset

0,5

Links

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

Mathematica

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

Crossrefs

Sequence in context: A012471 A116187 A009790 * A106808 A296181 A007899

Adjacent sequences: A009516 A009517 A009518 * A009520 A009521 A009522

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Prior Mathematica program replaced and definition clarified by Harvey P. Dale, Apr 23 2020

Status

approved