|
%I #24 Nov 19 2016 03:08:43
%S 1,-3,10,-60,543,-5905,75430,-1130304,19427485,-375334543,8051851146,
%T -190026879548,4892935459995,-136482933172157,4099807995824710,
%U -131951024352136160,4529936084197057465
%N E.g.f. arctanh(log(x+1)/exp(x)).
%H G. C. Greubel, <a href="/A013565/b013565.txt">Table of n, a(n) for n = 1..398</a>
%e x - 3/2!*x^2 + 10/3!*x^3 - 60/4!*x^4 + 543/5!*x^5 - ...
%t CoefficientList[Series[ArcTanh[Log[x + 1]/Exp[x]], {x, 0, 20}], x]*Range[0, 20]! (* _G. C. Greubel_, Nov 13 2016 *)
%o (PARI) x='x+O('x^33); Vec(serlaplace(atanh(log(1+x)*exp(-x)))) \\ _Joerg Arndt_, Nov 17 2016
%K sign
%O 1,2
%A Patrick Demichel (patrick.demichel(AT)hp.com), Dec 11 1996
|
