|
Search: id:A157113
|
|
|
| A157113 |
|
Triangle read by rows: t(n,m)=(Binomial[n*(n - m)*m, m] + Binomial[n*(n - m)*m, n - m]). |
|
+0
1
|
|
| 2, 1, 1, 1, 4, 1, 1, 21, 21, 1, 1, 232, 240, 232, 1, 1, 4865, 4495, 4495, 4865, 1, 1, 142536, 195708, 49608, 195708, 142536, 1, 1, 5245828, 12105429, 2024785, 2024785, 12105429, 5245828, 1, 1, 231917456, 927052864, 190858864, 21336000, 190858864
(list; table; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
Row sums are:
{2, 2, 6, 44, 706, 18722, 726098, 38752086, 2720994370, 241584879476,
26221233537242,...}.
|
|
FORMULA
|
t(n,m)=(Binomial[n*(n - m)*m, m] + Binomial[n*(n - m)*m, n - m]).
|
|
EXAMPLE
|
{2},
{1, 1},
{1, 4, 1},
{1, 21, 21, 1},
{1, 232, 240, 232, 1},
{1, 4865, 4495, 4495, 4865, 1},
{1, 142536, 195708, 49608, 195708, 142536, 1},
{1, 5245828, 12105429, 2024785, 2024785, 12105429, 5245828, 1},
{1, 231917456, 927052864, 190858864, 21336000, 190858864, 927052864, 231917456, 1},
{1, 11969016417, 84431266875, 22861012104, 1531144341, 1531144341, 22861012104, 84431266875, 11969016417, 1},
{1, 706252528720, 8917061700540, 3230131315840, 249354192220, 15634062600, 249354192220, 3230131315840, 8917061700540, 706252528720, 1}
|
|
MATHEMATICA
|
Table[Table[(Binomial[n*(n - m)*m, m] + Binomial[n*(n - m)*m, n - m]), {m, 0, n}], {n, 0, 10}] Flatten[%]
|
|
CROSSREFS
|
Sequence in context: A157114 A156786 A156141 this_sequence A139320 A118106 A143201
Adjacent sequences: A157110 A157111 A157112 this_sequence A157114 A157115 A157116
|
|
KEYWORD
|
nonn,tabl,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Feb 23 2009
|
|
|
Search completed in 0.002 seconds
|
