|
%I #24 May 08 2018 15:11:54
%S 1,2,6,2,20,12,70,60,6,252,280,60,924,1260,420,20,3432,5544,2520,280,
%T 12870,24024,13860,2520,70,48620,102960,72072,18480,1260,184756,
%U 437580,360360,120120,13860,252,705432,1847560,1750320,720720,120120,5544
%N Triangle of coefficients of Legendre polynomials 2^n P_n (x).
%D M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 798.
%H Robert Israel, <a href="/A008556/b008556.txt">Table of n, a(n) for n = 0..10099</a> (rows 0 to 199, flattened)
%H M. Abramowitz and I. A. Stegun, eds., <a href="http://www.convertit.com/Go/ConvertIt/Reference/AMS55.ASP">Handbook of Mathematical Functions</a>, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].
%F T(n,k) = C(2*(n-k), n-k) * C(n-k, k). - _Ralf Stephan_, Apr 07 2016
%e Triangle begins:
%e 1,
%e 2,
%e 6, 2,
%e 20, 12,
%e 70, 60, 6,
%e 252, 280, 60,
%e 924, 1260, 420, 20,
%e 3432, 5544, 2520, 280,
%e 12870, 24024, 13860, 2520, 70,
%e 48620, 102960, 72072, 18480, 1260,
%e 184756, 437580, 360360, 120120, 13860, 252,
%e 705432, 1847560, 1750320, 720720, 120120, 5544,
%e 2704156, 7759752, 8314020, 4084080, 900900, 72072, 924,
%e 10400600, 32449872, 38798760, 22170720, 6126120, 720720, 24024,
%e 40116600, 135207800, 178474296, 116396280, 38798760, 6126120, 360360, 3432,
%e 155117520, 561632400, 811246800, 594914320, 232792560, 46558512, 4084080, 102960,
%e ...
%p series(1/sqrt(1-2*x*z+z^2),z,20): for n to 19 do print(2^n*coeff(%,z,n)); od;
%t Table[Binomial[2 (n - k), n - k] Binomial[n - k, k], {n, 0, 11}, {k, 0, Floor[n/2]}] // Flatten (* or *)
%t Table[Reverse@ Abs@ CoefficientList[Series[2^n LegendreP[n, x], {x, 0, n}], x] /. 0 -> Nothing, {n, 0, 11}] // Flatten (* _Michael De Vlieger_, Apr 07 2016 *)
%o (PARI) row(n) = my(v = Vec(2^n*pollegendre(n))); vector((#v+1)\2, k, abs(v[2*k-1])); \\ _Michel Marcus_, Apr 07 2016
%o (PARI) T(n,k) = binomial(2*(n-k), n-k) * binomial(n-k, k);
%o for(n=0,10,for(k=0,n\2,print1(T(n,k),", "))); \\ _Joerg Arndt_, Apr 07 2016
%Y Cf. A115951.
%K nonn,tabf
%O 0,2
%A _N. J. A. Sloane_.
|
