|
|
A009829
|
|
Expansion of e.g.f.: tanh(x)*exp(sinh(x)).
|
|
0
|
|
|
0, 1, 2, 1, 0, 21, 88, -27, -704, 6121, 50464, -153559, -2089216, 13064637, 173223040, -996722035, -16120801280, 114653539281, 2032098365952, -15657589156655, -311227464130560, 2678537704263781, 58380271774087168
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
MATHEMATICA
|
With[{nn=30}, CoefficientList[Series[Tanh[x]*Exp[Sinh[x]], {x, 0, nn}], x] Range[ 0, nn]!] (* Harvey P. Dale, Dec 28 2021 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Previous Mathematica program replaced and definition clarified by Harvey P. Dale, Dec 28 2021
|
|
STATUS
|
approved
|
|
|
|