A160613 - OEIS

%I #9 Sep 08 2022 08:45:45

%S 1,4,23,28,491,1249,19223,15476,3515161,1512661,14496817,228800107,

%T 11770539419,60428965661,5262254717509,2521163372543,976843770850217,

%U 887131806309703,73511154681979031,255777165814872577

%N Numerator of Laguerre(n, -3).

%H G. C. Greubel, <a href="/A160613/b160613.txt">Table of n, a(n) for n = 0..480</a>

%t Numerator[Table[LaguerreL[n, -3], {n, 0, 50}]] (* _G. C. Greubel_, May 09 2018 *)

%o (PARI) for(n=0,30, print1(numerator(sum(k=0,n, binomial(n,k)*(3^k/k!))), ", ")) \\ _G. C. Greubel_, May 09 2018

%o (Magma) [Numerator((&+[Binomial(n,k)*(3^k/Factorial(k)): k in [0..n]])): n in [0..30]]; // _G. C. Greubel_, May 09 2018

%Y For denominators see A160614.

%Y Cf. A277382.

%K nonn,frac

%O 0,2

%A _N. J. A. Sloane_, Nov 14 2009