login
A009487
Expansion of e.g.f.: sin(sinh(log(1+x))).
0
0, 1, -1, 2, -6, 16, 0, -736, 12208, -169784, 2318040, -32444776, 472825056, -7215401192, 115478109656, -1937542156096, 34035113079360, -624767330011904, 11958852841719552, -238135073165940736, 4920755077661248000
OFFSET
0,4
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
KEYWORD
sign,easy
AUTHOR
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