|
| |
|
|
A157077
|
|
A triangle of Legengdre P polynomial coefficients: p(x,n)=2^n*LegendreP[n, x].
|
|
0
| |
|
|
1, 0, 2, -2, 0, 6, 0, -12, 0, 20, 6, 0, -60, 0, 70, 0, 60, 0, -280, 0, 252, -20, 0, 420, 0, -1260, 0, 924, 0, -280, 0, 2520, 0, -5544, 0, 3432, 70, 0, -2520, 0, 13860, 0, -24024, 0, 12870, 0, 1260, 0, -18480, 0, 72072, 0, -102960, 0, 48620, -252, 0, 13860, 0, -120120
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
COMMENTS
| Row sums are:2^n
{1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024,...}.
|
|
|
FORMULA
| p(x,n)=2^n*LegendreP[n, x];
t(n,m)=coefficients(p(x,n))
|
|
|
EXAMPLE
| {1},
{0, 2},
{-2, 0, 6},
{0, -12, 0, 20},
{6, 0, -60, 0, 70},
{0, 60, 0, -280, 0, 252},
{-20, 0, 420, 0, -1260, 0, 924},
{0, -280, 0, 2520, 0, -5544, 0, 3432},
{70, 0, -2520, 0, 13860, 0, -24024, 0, 12870},
{0, 1260, 0, -18480, 0, 72072, 0, -102960, 0, 48620},
{-252, 0, 13860, 0, -120120, 0, 360360, 0, -437580, 0, 184756}
|
|
|
MATHEMATICA
| Table[CoefficientList[2^n*LegendreP[n, x], x], {n, 0, 10}];
Flatten[%]
|
|
|
CROSSREFS
| Sequence in context: A168505 A100334 A129936 * A185896 A076256 A127467
Adjacent sequences: A157074 A157075 A157076 * A157078 A157079 A157080
|
|
|
KEYWORD
| tabl,uned,sign
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Feb 22 2009
|
| |
|
|
