A013565 E.g.f. arctanh(log(x+1)/exp(x)).

1, -3, 10, -60, 543, -5905, 75430, -1130304, 19427485, -375334543, 8051851146, -190026879548, 4892935459995, -136482933172157, 4099807995824710, -131951024352136160, 4529936084197057465

Offset

1,2

Links

G. C. Greubel, Table of n, a(n) for n = 1..398

Example

x - 3/2!*x^2 + 10/3!*x^3 - 60/4!*x^4 + 543/5!*x^5 - ...

Mathematica

CoefficientList[Series[ArcTanh[Log[x + 1]/Exp[x]], {x, 0, 20}], x]*Range[0, 20]! (* G. C. Greubel, Nov 13 2016 *)

Prog

(PARI) x='x+O('x^33); Vec(serlaplace(atanh(log(1+x)*exp(-x)))) \\ Joerg Arndt, Nov 17 2016

Crossrefs

Sequence in context: A018932 A111562 A009654 * A156075 A330624 A228773

Adjacent sequences: A013562 A013563 A013564 * A013566 A013567 A013568

Keyword

sign

Author

Patrick Demichel (patrick.demichel(AT)hp.com), Dec 11 1996

Status

approved