|
Search: id:A137388
|
|
|
| A137388 |
|
A combinatorial triangular sequence: t(n,m)=(n - 1)*(n + 1)*Binomial[m, n]*Binomial[m + 2, n]/Binomial[m + 1, n]. |
|
+0
1
|
|
| -1, -1, 0, -1, 0, 6, -1, 0, 15, 20, -1, 0, 27, 64, 45, -1, 0, 42, 140, 175, 84, -1, 0, 60, 256, 450, 384, 140, -1, 0, 81, 420, 945, 1134, 735, 216, -1, 0, 105, 640, 1750, 2688, 2450, 1280, 315, -1, 0, 132, 924, 2970, 5544, 6468, 4752, 2079, 440, -1, 0, 162, 1280, 4725, 10368, 14700, 13824, 8505, 3200, 594
(list; table; graph; listen)
|
|
|
OFFSET
|
1,6
|
|
|
COMMENT
|
Row sums are: {-1, -1, 5, 34, 135, 440, 1289, 3530, 9227, 23308, 57357};
|
|
FORMULA
|
t(n,m)=(n - 1)*(n + 1)*Binomial[m, n]*Binomial[m + 2, n]/Binomial[m + 1, n]
|
|
EXAMPLE
|
{-1},
{-1, 0},
{-1, 0, 6},
{-1, 0, 15, 20},
{-1, 0, 27, 64, 45},
{-1, 0, 42, 140, 175, 84},
{-1, 0, 60, 256, 450, 384, 140},
{-1, 0, 81, 420, 945, 1134, 735, 216},
{-1, 0, 105, 640, 1750, 2688, 2450, 1280, 315},
{-1, 0, 132, 924, 2970, 5544, 6468, 4752, 2079, 440},
{-1, 0, 162, 1280, 4725, 10368, 14700, 13824, 8505, 3200, 594}
|
|
MATHEMATICA
|
a0 = Table[Table[(n - 1)*(n + 1)*Binomial[m, n]*Binomial[m + 2, n]/Binomial[m + 1, n], {n, 0, m}], {m, 0, 10}]; Flatten[a0]
|
|
CROSSREFS
|
Adjacent sequences: A137385 A137386 A137387 this_sequence A137389 A137390 A137391
Sequence in context: A120113 A074395 A127573 this_sequence A114153 A119832 A087253
|
|
KEYWORD
|
uned,tabl,sign
|
|
AUTHOR
|
Roger Bagula and Gary Adamson (rlbagulatftn(AT)yahoo.com), Apr 10 2008
|
|
|
Search completed in 0.002 seconds
|
