A009487 Expansion of e.g.f.: sin(sinh(log(1+x))).

0, 1, -1, 2, -6, 16, 0, -736, 12208, -169784, 2318040, -32444776, 472825056, -7215401192, 115478109656, -1937542156096, 34035113079360, -624767330011904, 11958852841719552, -238135073165940736, 4920755077661248000

Offset

0,4

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Sin[Sinh[Log[1+x]]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Sep 15 2015 *)

Crossrefs

Sequence in context: A193341 A009711 A009586 * A009806 A151708 A356370

Adjacent sequences: A009484 A009485 A009486 * A009488 A009489 A009490

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, Sep 15 2015

Status

approved