|
%I #17 Mar 15 2023 14:57:10
%S 1,-3,7,-6,-117,1385,-8297,-25956,1648321,-27076303,193866363,
%T 3316610110,-155740823565,3027137980477,-15561540714197,
%U -1235594001526472,54043406644859329,-1102221843621842235
%N Expansion of e.g.f. arcsinh(log(x+1)/exp(x)).
%H G. C. Greubel, <a href="/A013564/b013564.txt">Table of n, a(n) for n = 1..200</a>
%F E.g.f.: arcsinh(log(x+1)/exp(x)).
%e x - 3/2!*x^2 + 7/3!*x^3 - 6/4!*x^4 - 117/5!*x^5 + ...
%t CoefficientList[Series[ArcSin[Log[x + 1]/Exp[x]], {x, 0, 20}], x]*Range[0, 20]! (* _G. C. Greubel_, Nov 13 2016 *)
%K sign
%O 1,2
%A Patrick Demichel (patrick.demichel(AT)hp.com), Dec 11 1996
|
