|
%I #10 Nov 20 2016 03:51:46
%S 1,1,-1,-1,9,-15,-25,471,-1295,3329,65647,-98129,3713721,33219953,
%T 270347415,6061172807,68349644129,1202915380097,19022739778399,
%U 352452078288991,6138793986311401,130474490203385201
%N Expansion of e.g.f. exp(arcsin(x)/exp(x)).
%H G. C. Greubel, <a href="/A013569/b013569.txt">Table of n, a(n) for n = 0..400</a>
%e exp(arcsin(x)/exp(x)) = 1 + x - 1/2!*x^2 - 1/3!*x^3 + 9/4!*x^4 - 15/5!*x^5 ...
%t CoefficientList[Series[Exp[ArcSin[x]/Exp[x]], {x,0,100}], x]*Range[0,100]! (* _G. C. Greubel_, Nov 19 2016 *)
%o (PARI) x='x+O('x^50); Vec(serlaplace(exp(asin(x)/exp(x)))) \\ _G. C. Greubel_, Nov 19 2016
%K sign
%O 0,5
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|
