0,3

Row sums are:A137341;

{1, 11, 195, 3989, 86515, 1936881, 44241261, 1024642875, 23973456915,

565280386625, 13411044301945,...}.

Riordan say this is from a private communication with Reed Dawson.

I've taken out division 2^m and a sign.

J. Riordan, Combinatorial Identities, Wiley, 1968, p.77.

t(n,m)=Binomial[2*n, m]*Binomial[2*m, m].

{1},

{1, 4, 6},

{1, 8, 36, 80, 70},

{1, 12, 90, 400, 1050, 1512, 924},

{1, 16, 168, 1120, 4900, 14112, 25872, 27456, 12870},

{1, 20, 270, 2400, 14700, 63504, 194040, 411840, 579150, 486200, 184756},

{1, 24, 396, 4400, 34650, 199584, 853776, 2718144, 6370650, 10696400, 12193896, 8465184, 2704156},

{1, 28, 546, 7280, 70070, 504504, 2774772, 11778624, 38648610, 97337240, 184940756, 256777248, 246078196, 145608400, 40116600},

{1, 32, 720, 11200, 127400, 1100736, 7399392, 39262080, 165636900, 556212800, 1479526048, 3081326976, 4921563920, 5824336000, 4813992000, 2481880320, 601080390},

{1, 36, 918, 16320, 214200, 2159136, 17153136, 109219968, 563165460, 2363904400, 8084553048, 22449667968, 50199951984, 89112340800, 122756796000, 126575896320, 91965299670, 42004911960, 9075135300},

{1, 40, 1140, 22800, 339150, 3907008, 35814240, 266048640, 1621233900, 8166215200, 34134779536, 118484358720, 340642531320, 806254512000, 1554919416000, 2404942030080, 2912234489550, 2660311090800, 1724275707000, 706905276000, 137846528820}

t[n_, m_] = Binomial[2*n, m]*Binomial[2*m, m];

Table[Table[t[n, m], {m, 0, 2*n}], {n, 0, 10}];

Flatten[%]

Sequence in context: A154478 A051261 A030169 this_sequence A052110 A131701 A021688

Adjacent sequences: A156786 A156787 A156788 this_sequence A156790 A156791 A156792

nonn,tabl,uned

Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Feb 15 2009