login
A009451
Expansion of sin(log(1+sinh(x))).
0
0, 1, -1, 2, -4, 1, 74, -988, 11136, -126059, 1500524, -19039978, 258494576, -3754232819, 58220860424, -961696523968, 16874068290816, -313647160028279, 6159716758535024, -127495799251479958, 2774799857717137856
OFFSET
0,4
MATHEMATICA
With[{nn=20}, CoefficientList[Series[Sin[Log[1+Sinh[x]]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, May 07 2016 *)
CROSSREFS
Sequence in context: A117258 A152285 A009417 * A321330 A345080 A110176
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Prior Mathematica program replaced by Harvey P. Dale, May 07 2016
STATUS
approved