|
|
A013573
|
|
Expansion of e.g.f. exp(arctanh(x)/exp(x)).
|
|
1
|
|
|
1, 1, -1, 0, 9, -20, 65, 406, -511, 21624, 88577, 1053426, 14764321, 143838916, 2193647521, 29669704702, 457719400449, 7433158061552, 128311987616769, 2329120580336746, 45112841958764321, 905762343424701116
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
LINKS
|
|
|
EXAMPLE
|
exp(arctanh(x)/exp(x)) = 1 + x - 1/2!*x^2 + 9/4!*x^4 - 20/5!*x^5 + 65/6!*x^6 ...
|
|
MATHEMATICA
|
With[{nn = 50}, CoefficientList[Series[Exp[ArcTanh[x]/Exp[x]], {x, 0, nn}], x] Range[0, nn]!] (* G. C. Greubel, Nov 20 2016 *)
|
|
PROG
|
(PARI) x='x + O('x^50); Vec(serlaplace(exp(atanh(x)/exp(x)))) \\ G. C. Greubel, Nov 20 2016
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Patrick Demichel (patrick.demichel(AT)hp.com)
|
|
STATUS
|
approved
|
|
|
|