login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A087912
Exponential generating function is exp(2*x/(1-x))/(1-x).
21
1, 3, 14, 86, 648, 5752, 58576, 671568, 8546432, 119401856, 1815177984, 29808908032, 525586164736, 9898343691264, 198227905206272, 4204989697906688, 94163381359509504, 2219240984918720512, 54898699229094412288, 1422015190821016633344, 38484192401958599131136
OFFSET
0,2
FORMULA
E.g.f.: exp(2*x/(1-x))/(1-x). - M. F. Hasler, Sep 30 2012
a(n) = n!*LaguerreL(n, -2).
a(n) = Sum_{k=0..n} 2^k*(n-k)!*binomial(n, k)^2.
E.g.f.: exp(x) * Sum_{n>=0} 2^n*x^n/n!^2 = Sum_{n>=0} a(n)*x^n/n!^2. [Paul D. Hanna, Nov 18 2011]
a(n) ~ n^(n+1/4)*exp(2*sqrt(2*n)-n-1)*2^(-3/4). - Vaclav Kotesovec, Sep 29 2012
Lim n -> infinity a(n)/(n!*BesselI(0, 2*sqrt(2*n))) = exp(-1). - Vaclav Kotesovec, Oct 12 2016
a(n) = n! * A160615(n)/A160616(n). - Alois P. Heinz, Jun 28 2017
D-finite with recurrence: a(n) +(-2*n-1)*a(n-1) +(n-1)^2*a(n-2)=0. - R. J. Mathar, Feb 21 2020
MAPLE
a := proc(n) option remember: if n<1 then 1 else (2*n+1)*a(n-1) - (n-1)^2*a(n-2) fi end: 'a(n)'$n=0..17; # Zerinvary Lajos, Sep 26 2006; corrected by M. F. Hasler, Sep 30 2012
MATHEMATICA
Table[n! SeriesCoefficient[E^(2*x/(1-x))/(1-x), {x, 0, n}], {n, 0, 20}] (* Vincenzo Librandi, May 10 2013 *)
Table[n!*LaguerreL[n, -2], {n, 0, 30}] (* G. C. Greubel, May 16 2018 *)
PROG
(PARI) A087912(n)={n!^2*polcoeff(exp(x+x*O(x^n))*sum(m=0, n, 2^m*x^m/m!^2) , n)} \\ Paul D. Hanna, Nov 18 2011
(PARI) x='x+O('x^66); Vec(serlaplace(exp(2*x/(1-x))/(1-x))) \\ Joerg Arndt, May 10 2013
(Magma) m:=25; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!(Exp(2*x/(1-x))/(1-x))); [Factorial(n-1)*b[n]: n in [1..m]]; // G. C. Greubel, May 16 2018
CROSSREFS
Column k=2 of A289192.
Sequence in context: A074520 A127715 A307440 * A308878 A051818 A091102
KEYWORD
nonn
AUTHOR
Vladeta Jovovic, Oct 18 2003
EXTENSIONS
Several minor edits by M. F. Hasler, Sep 30 2012
STATUS
approved