A160627 - OEIS

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

%S 1,-3,1,7,1,-13,-83,-57,-197,1543,931,255217,620863,1283437,-8184347,

%T -581939153,-96325549,-2261420263,-9237901697,-466203083257,

%U -1399462769491,88080802505933,675385729846153,61756890564641033,28280520375244993,495763088616446491

%N Numerator of Laguerre(n, 4).

%C Conjecture: all terms are odd. - _Robert Israel_, Mar 29 2018

%H Robert Israel, <a href="/A160627/b160627.txt">Table of n, a(n) for n = 0..506</a>

%p seq(numer(orthopoly[L](n,4)),n=0..50); # _Robert Israel_, Mar 29 2018

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

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

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

%Y For denominators see A160628.

%K sign,frac

%O 0,2

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