A168620 - OEIS

%I #11 May 15 2013 18:02:16

%S 1,1,1,1,10,1,1,15,15,1,1,20,30,20,1,1,25,50,50,25,1,1,30,75,100,75,

%T 30,1,1,35,105,175,175,105,35,1,1,40,140,280,350,280,140,40,1,1,45,

%U 180,420,630,630,420,180,45,1,1,50,225,600,1050,1260,1050,600,225,50,1

%N Table T(n,k) with the coefficient [x^k] of the polynomial 5*(x+1)^n - 4*(x^n+1) in column 0<=k<=n. T(0,0)=1.

%C Row sums are apparently in A154252.

%e 1;

%e 1, 1;

%e 1, 10, 1;

%e 1, 15, 15, 1;

%e 1, 20, 30, 20, 1;

%e 1, 25, 50, 50, 25, 1;

%e 1, 30, 75, 100, 75, 30, 1;

%e 1, 35, 105, 175, 175, 105, 35, 1;

%e 1, 40, 140, 280, 350, 280, 140, 40, 1;

%e 1, 45, 180, 420, 630, 630, 420, 180, 45, 1;

%e 1, 50, 225, 600, 1050, 1260, 1050, 600, 225, 50, 1;

%t m = 2; p[x_, n_] := If[n == 0, 1, (2*m + 1)(x + 1)^n - 2*m*(x^n + 1)]

%t a = Table[CoefficientList[p[x, n], x], {n, 0, 10}];

%t Flatten[a]

%K nonn,tabl,easy

%O 0,5

%A _Roger L. Bagula_ and _Gary W. Adamson_, Dec 01 2009