|
|
A009528
|
|
Expansion of e.g.f.: sin(tanh(x)*exp(x)).
|
|
0
|
|
|
0, 1, 2, 0, -16, -68, -88, 784, 4608, -9008, -161248, 625152, 14608640, -8998208, -1347816832, -2920147712, 139368775680, 708078508288, -17610019700224, -166304331522048, 2430929524011008, 40722499309345792
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
MATHEMATICA
|
With[{nn=30}, CoefficientList[Series[Sin[Tanh[x]*Exp[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Dec 16 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Definition clarified and previous Mathematica program replaced by Harvey P. Dale, Dec 16 2019
|
|
STATUS
|
approved
|
|
|
|