login
Expansion of e.g.f. exp(arcsin(x)/exp(x)).
1

%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)