|
%I #2 Mar 30 2012 17:34:33
%S 1,2,1,9,33,17,1,64,610,1180,595,70,1,625,11315,48135,67245,33309,
%T 5463,227,1,7776,228531,1708496,4680256,5339376,2610776,522256,36996,
%U 656,1,117649,5104701,59221547,268424247,551826072,547629432,265213752
%N A triangle sequence of polynomial coefficients: p(x,n)=(-1)^(n + 1)*(x - 1)^(3*n + 1)*Sum[(Binomial[m, n]* Binomial[m + 1, n + 1]/(m - n + 1))*(m + 1)^ n*x^m, {m, 0, Infinity}]/(x^n); t(n,m)=coefficients(p(x,n))
%C Row sums are:
%C {1, 3, 60, 2520, 166320, 15135120, 1764322560, 251415964800, 42405492729600,
%C 8269071082272000, 1831223377855872000,...}
%F p(x,n)=(-1)^(n + 1)*(x - 1)^(3*n + 1)*Sum[(Binomial[m, n]* Binomial[m + 1, n + 1]/(m - n + 1))*(m + 1)^ n*x^m, {m, 0, Infinity}]/(x^n);
%F t(n,m)=coefficients(p(x,n))
%e {1},
%e {2, 1},
%e {9, 33, 17, 1},
%e {64, 610, 1180, 595, 70, 1},
%e {625, 11315, 48135, 67245, 33309, 5463, 227, 1},
%e {7776, 228531, 1708496, 4680256, 5339376, 2610776, 522256, 36996, 656, 1},
%e {117649, 5104701, 59221547, 268424247, 551826072, 547629432, 265213752, 60598872, 5973447, 211067, 1773, 1},
%e {2097152, 126049540, 2096330664, 14207052574, 46045110980, 77141715750, 69121920120, 33230236215, 8354341710, 1033843525, 56182148, 1079835, 4586, 1},
%e {43046721, 3423831975, 77260093125, 731924512275, 3437765874135, 8726259755169, 12530549950875, 10383294890925, 4962943954925, 1341045544795, 196133991009, 14379274775, 462872275, 5125125, 11495, 1},
%e {1000000000, 101687123005, 2990094781780, 37741149307420, 242438838391372, 868344303959314, 1827360860004316, 2325557079854008, 1811458523454580, 861797333170774, 246383386597348, 40969332412372, 3750975005596, 173027847370, 3467306284, 23028328, 28132, 1},
%e {25937424601, 3282485876153, 121943147250045, 1978276502459037, 16660492641426414, 80063816942156718, 232316612953922574, 421187996783503950, 486314819595330726, 360267425295559782, 170739215087786982, 51078738006949926, 9404267410779150, 1022873614221774, 61697673399918, 1869498032814, 24180490437, 99233445, 67553, 1}
%t p[x_, n_] = (-1)^(n + 1)*(x - 1)^( 3*n + 1)*Sum[(Binomial[m, n]*Binomial[m + 1, n + 1]/(m - n + 1))*(m + 1)^n*x^m, {m, 0, Infinity}]/(x^n);
%t Table[FullSimplify[ExpandAll[p[x, n]]], {n, 0, 10}];
%t a = Table[CoefficientList[FullSimplify[ExpandAll[p[x, n]]], x], {n, 0, 10}];
%t Flatten[%]
%K nonn,tabl,uned
%O 0,2
%A _Roger L. Bagula_, Jan 26 2009
|
