|
%I #9 Sep 08 2022 08:45:45
%S 1,1,2,1,8,10,80,35,4480,1120,6400,61600,1971200,6406400,358758400,
%T 112112000,28700672000,17425408000,975822848000,2317579264000,
%U 370812682240000,49917091840000,57105153064960000,41044328765440000
%N Denominator of Laguerre(n, -3).
%H G. C. Greubel, <a href="/A160614/b160614.txt">Table of n, a(n) for n = 0..499</a>
%t Denominator[Table[LaguerreL[n, -3], {n, 0, 50}]] (* _G. C. Greubel_, May 06 2018 *)
%o (PARI) for(n=0,30, print1(denominator(sum(k=0,n, binomial(n,k)*(3^k/k!))), ", ")) \\ _G. C. Greubel_, May 06 2018
%o (Magma) [Denominator((&+[Binomial(n,k)*(3^k/Factorial(k)): k in [0..n]])): n in [0..30]]; // _G. C. Greubel_, May 06 2018
%Y For numerators see A160613.
%Y Cf. A277382.
%K nonn,frac
%O 0,3
%A _N. J. A. Sloane_, Nov 14 2009
|
