|
Search: id:A008316
|
|
|
| A008316 |
|
Triangle of coefficients of Legendre polynomials P_n (x). |
|
+0
5
|
|
| 1, 1, -1, 3, -3, 5, 3, -30, 35, 15, -70, 63, -5, 105, -315, 231, -35, 315, -693, 429, 35, -1260, 6930, -12012, 6435, 315, -4620, 18018, -25740, 12155, -63, 3465, -30030, 90090, -109395, 46189, -693, 15015, -90090, 218790, -230945, 88179, 231, -18018, 225225, -1021020, 2078505, -1939938, 676039
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
REFERENCES
|
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.
|
|
LINKS
|
T. D. Noe, Rows n=0..100 of triangle, flattened
M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, December 1972 [alternative scanned copy].
Eric Weisstein's World of Mathematics, Legendre Polynomial
|
|
EXAMPLE
|
1; 1; -1,3; -3,5; 3,-30,35; 15,-70,63; ...
P_6(x) = (-5+105x^2-315x^4+231x^6)/16 so T(6,)=-5,105,-315,231.
P_5(x) = (15x-70x^3+63x^5)/8 so T(5,)=15,-70,63.
|
|
MATHEMATICA
|
Flatten[Table[(LegendreP[i, x]/.{Plus->List, x->1})Max[ Denominator[LegendreP[i, x]/.{Plus->List, x->1}]], {i, 0, 12}]]
|
|
PROGRAM
|
(PARI) T(n, k)=if(n<0, 0, polcoeff(pollegendre(n)*2^valuation((n\2*2)!, 2), n%2+2*k))
|
|
CROSSREFS
|
Cf. A001790, A001800, A001801.
With zeros: A100258.
Sequence in context: A071053 A094439 A122037 this_sequence A072820 A131950 A116192
Adjacent sequences: A008313 A008314 A008315 this_sequence A008317 A008318 A008319
|
|
KEYWORD
|
sign,tabf,easy,nice
|
|
AUTHOR
|
njas
|
|
EXTENSIONS
|
More terms from Vit Planocka (planocka(AT)mistral.cz), Sep 28 2002
|
|
|
Search completed in 0.002 seconds
|
