OFFSET
0,3
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..100
FORMULA
a(n) ~ sqrt(1 + LambertW(1)) * n^(n-1) / (exp(n) * LambertW(1)^n). - Vaclav Kotesovec, Mar 26 2019
EXAMPLE
arcsin(x*exp(x)) = x^1/1! + 2*x^2/2! + 4*x^3/3! + 16*x^4/4! + 104*x^5/5! + 816*x^6/6! + ...
MAPLE
a:=series(arcsin(x*exp(x)), x=0, 22): seq(n!*coeff(a, x, n), n=0..21); # Paolo P. Lava, Mar 26 2019
MATHEMATICA
nmax = 21; CoefficientList[Series[ArcSin[x Exp[x]], {x, 0, nmax}], x] Range[0, nmax]!
nmax = 21; CoefficientList[Series[-I Log[I x Exp[x] + Sqrt[1 - x^2 Exp[2 x]]], {x, 0, nmax}], x] Range[0, nmax]!
PROG
(PARI) first(n) = my(x='x+O('x^n)); Vec(serlaplace(asin(exp(x)*x)), -n) \\ Iain Fox, Dec 23 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Dec 23 2017
STATUS
approved