cp's OEIS Frontend

A136453 A129065 with v=n instead of v=1: recursive polynomial coefficient triangle.

%I A136453 #3 Mar 30 2012 17:34:22
%S A136453 1,0,1,-1,-1,1,2,-3,-3,1,3,20,-3,-6,1,-44,-29,80,5,-10,1,145,-399,
%T A136453 -354,205,30,-15,1,714,3583,-1155,-1764,385,84,-21,1,-12103,-4816,
%U A136453 29014,1148,-5929,532,182,-28,1,51128,-202887,-163008,132726,23940,-15561,420,342,-36,1,520191,2267207,-1085949,-1450530
%N A136453 A129065 with v=n instead of v=1: recursive polynomial coefficient triangle.
%C A136453 Row sums are:
%C A136453 {1, 1, -1, -3, 15, 3, -387, 1827, 8001, -172935, 735399}
%F A136453 v=n; p(n, x) = (x + 2*(n - 1)^2 - 2*(v - 1)*(n - 1) - v + 1)*p(n - 1, x) - (n - 1)^2*(n - 1 - v)^2*p(n - 2, x)
%e A136453 {1},
%e A136453 {0, 1},
%e A136453 {-1, -1, 1},
%e A136453 {2, -3, -3, 1},
%e A136453 {3, 20, -3, -6, 1},
%e A136453 {-44, -29, 80, 5, -10, 1},
%e A136453 {145, -399, -354,205, 30, -15, 1},
%e A136453 {714, 3583, -1155, -1764, 385, 84, -21, 1},
%e A136453 {-12103, -4816, 29014, 1148, -5929, 532, 182, -28, 1},
%e A136453 {51128, -202887, -163008, 132726, 23940, -15561, 420, 342, -36, 1},
%e A136453 {520191, 2267207, -1085949, -1450530, 397515, 120897, -34083, -390, 585, -45, 1}
%t A136453 Clear[p, v, x, n] p[ -1, x] = 0 ; p[0, x] = 1; p[n_, x_] := p[n, x] = (x + 2*(n - 1)^2 - 2*(v - 1)*(n - 1) - v + 1)*p[n - 1, x] - (n - 1)^2*(n - 1 - v)^2*p[n - 2, x]; v = n; a = Join[{{1}}, Table[CoefficientList[p[n, x], x], {n, 1, 10}]]; Flatten[a]
%Y A136453 Cf. A129065.
%K A136453 uned,tabl,sign
%O A136453 1,7
%A A136453 _Roger L. Bagula_, Mar 19 2008