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

1, 1, -1, -1, 9, -15, -25, 471, -1295, 3329, 65647, -98129, 3713721, 33219953, 270347415, 6061172807, 68349644129, 1202915380097, 19022739778399, 352452078288991, 6138793986311401, 130474490203385201

Offset

0,5

Links

G. C. Greubel, Table of n, a(n) for n = 0..400

Example

exp(arcsin(x)/exp(x)) = 1 + x - 1/2!*x^2 - 1/3!*x^3 + 9/4!*x^4 - 15/5!*x^5 ...

Mathematica

CoefficientList[Series[Exp[ArcSin[x]/Exp[x]], {x, 0, 100}], x]*Range[0, 100]! (* G. C. Greubel, Nov 19 2016 *)

Prog

(PARI) x='x+O('x^50); Vec(serlaplace(exp(asin(x)/exp(x)))) \\ G. C. Greubel, Nov 19 2016

Crossrefs

Sequence in context: A014003 A333788 A082549 * A129401 A164385 A339519

Adjacent sequences: A013566 A013567 A013568 * A013570 A013571 A013572

Keyword

sign

Author

Patrick Demichel

Status

approved