|
|
A009568
|
|
Expansion of e.g.f.: sinh(log(1+sinh(x))).
|
|
1
|
|
|
0, 1, -1, 4, -16, 91, -616, 4894, -44416, 453541, -5145856, 64222984, -874402816, 12897183391, -204862698496, 3486535686274, -63292764553216, 1220795601029641, -24931903045697536, 537463528325234764, -12196043454064623616, 290588368323926512291, -7253387436695186046976
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
With[{nn=20}, CoefficientList[Series[Sinh[Log[1+Sinh[x]]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Dec 08 2017 *)
|
|
PROG
|
(PARI) x='x+O('x^30); concat([0], Vec(serlaplace( sinh(log(1+sinh(x)))))) \\ G. C. Greubel, Jan 21 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Prior Mathematica program replaced and definition clarified by Harvey P. Dale, Dec 08 2017
|
|
STATUS
|
approved
|
|
|
|