|
%I #5 Mar 05 2015 13:34:46
%S 1,-2,-1,2,1,4,4,-7,-8,2,4,1,-8,-12,18,35,-6,-33,-10,9,6,1,16,32,-40,
%T -120,1,160,76,-80,-74,0,20,8,1,-32,-80,80,360,70,-601,-430,405,540,
%U -10,-268,-110,30,35,10,1,64,192,-144,-992,-420,1932,1961,-1512,-2946,-140
%N Triangle T(n,m) of the coefficients [x^m] of the polynomial ((x-1)*(x+2)*(x+1))^n, 0<=m<=3n.
%C The row sums are 1 for row n=0, and 0 for row n>0.
%e 1;
%e -2, -1, 2, 1;
%e 4, 4, -7, -8, 2,4, 1;
%e -8, -12, 18, 35, -6, -33, -10, 9, 6, 1;
%e 16, 32, -40, -120, 1, 160, 76, -80, -74, 0, 20, 8, 1;
%e -32, -80,80, 360, 70, -601, -430, 405, 540, -10, -268, -110, 30, 35, 10, 1;
%e 64, 192, -144, -992, -420, 1932, 1961, -1512, -2946, -140, 2031, 1008, -496, -588, -105, 88, 54, 12, 1;
%e -128, -448, 224, 2576, 1736, -5572, -7686, 4507, 13258, 2163, -11326, -7273, 3906, 5719, 814, -1743, -994, -7, 182, 77, 14, 1;
%e 256, 1024, -256, -6400, -6048, 14784, 26992, -10736, -51967, -16256, 51512, 43456, -21028, -41216, -6808, 18016, 11078, -1664, -4088, -1344, 252, 320, 104, 16, 1;
%e -512, -2304, 0, 15360, 19008, -36576, -87264, 18000, 183438, 89999, -201438, -222903, 85368, 241884, 56232, -132684, -95004, 21474, 50012, 14526, -9000, -7668, -1368, 756, 510, 135, 18, 1;
%t Clear[p, x, n, a, b, c, a0]
%t a = 1; b = -2; c = -1;
%t p[x_, n_] = ((x - a)*(x - b)*(x - c))^n;
%t a0 = Table[CoefficientList[ExpandAll[p[x, n]], x], {n, 0, 10}];
%t Flatten[a0]
%K sign,tabf
%O 0,2
%A _Roger L. Bagula_ and _Alexander R. Povolotsky_, Oct 09 2009
|
