|
%I #13 Sep 08 2022 08:45:45
%S 1,1,2,3,24,60,720,2520,40320,25920,3628800,19958400,479001600,
%T 3113510400,87178291200,59439744000,426995712000,177843714048000,
%U 582033973248000,60822550204416000,143111882833920000
%N Denominator of Laguerre(n, -1).
%H G. C. Greubel, <a href="/A160618/b160618.txt">Table of n, a(n) for n = 0..449</a>
%t Denominator[Table[LaguerreL[n, -1], {n, 0, 50}]] (* _G. C. Greubel_, May 06 2018 *)
%o (PARI) lista(nn) = {x = 'x + O('x^nn); v = exp(x/(1-x))/(1-x); for (n=0, nn-1, print1(denominator(polcoeff(v, n)), ", "););} \\ _Michel Marcus_, Nov 27 2015
%o (PARI) for(n=0,30, print1(denominator(sum(k=0,n, binomial(n,k)*(1/k!))), ", ")) \\ _G. C. Greubel_, May 06 2018
%o (Magma) [Denominator((&+[Binomial(n,k)*(1/Factorial(k)): k in [0..n]])): n in [0..30]]; // _G. C. Greubel_, May 06 2018
%Y For numerators see A160617.
%Y Cf. A002720.
%K nonn,frac
%O 0,3
%A _N. J. A. Sloane_, Nov 14 2009
|
