This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A291482 Expansion of e.g.f. arcsin(x)*exp(x). 3
 0, 1, 2, 4, 8, 24, 80, 456, 2368, 20352, 139648, 1577984, 13327360, 185992832, 1860708096, 30882985472, 356724338688, 6860887896064, 89815091306496, 1963843714723840, 28724760194564096, 703639672161697792, 11370790299166343168, 308435832182144040960, 5456591088206554333184, 162354575283061816197120 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,3 LINKS FORMULA E.g.f.: exp(x)*x*sqrt(1 - x^2)/(1 - 1*2*x^2/(3 - 1*2*x^2/(5 - 3*4*x^2/(7 - 3*4*x^2/(9 - ...))))), a continued fraction. a(n) ~ (exp(2) - (-1)^n) * n^(n-1) / exp(n+1). - Vaclav Kotesovec, Aug 26 2017 From Emanuele Munarini, Dec 17 2017: (Start) a(n) = Sum_{k=0..(n-1)/2} binomial(n,2*k+1)*binomial(2*k,k)* (2k)!/4^k. a(n+4) - 2*a(n+3) - (n^2+4*n+3)*a(n+2) + (n+2)*(2*n+3)*a(n+1) - (n+1)*(n+2)*a(n) = 0. (End) EXAMPLE E.g.f.: A(x) = x/1! + 2*x^2/2! + 4*x^3/3! + 8*x^4/4! + 24*x^5/5! + ... MAPLE a:=series(arcsin(x)*exp(x), x=0, 26): seq(n!*coeff(a, x, n), n=0..25); # Paolo P. Lava, Mar 27 2019 MATHEMATICA nmax = 25; Range[0, nmax]! CoefficientList[Series[ArcSin[x] Exp[x], {x, 0, nmax}], x] nmax = 25; Range[0, nmax]! CoefficientList[Series[Exp[x] x Sqrt[1 - x^2]/(1 + ContinuedFractionK[-2 x^2 Floor[(k + 1)/2] (2 Floor[(k + 1)/2] - 1), 2 k + 1, {k, 1, nmax}]), {x, 0, nmax}], x] nmax = 25; Range[0, nmax]! CoefficientList[Series[Sum[(x^(2 k + 1) Pochhammer[1/2, k])/(k! + 2 k k!), {k, 0, Infinity}] Exp[x], {x, 0, nmax}], x] Table[Sum[Binomial[n, 2k+1]Binomial[2k, k] (2k)!/4^k, {k, 0, (n-1)/2}], {n, 0, 12}] (* Emanuele Munarini, Dec 17 2017 *) PROG (Maxima) makelist(sum(binomial(n, 2*k+1)*binomial(2*k, k)*(2*k)!/4^k, k, 0, floor((n-1)/2)), n, 0, 12); /* Emanuele Munarini, Dec 17 2017 */ (PARI) x='x+O('x^99); concat(0, Vec(serlaplace(asin(x)*exp(x)))) \\ Altug Alkan, Dec 17 2017 CROSSREFS Cf. A001818, A009545, A012316, A081919 (first differences). Sequence in context: A067646 A152875 A179190 * A065654 A002908 A004528 Adjacent sequences:  A291479 A291480 A291481 * A291483 A291484 A291485 KEYWORD nonn AUTHOR Ilya Gutkovskiy, Aug 24 2017 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 20 02:06 EDT 2019. Contains 322291 sequences. (Running on oeis4.)