|
| |
| |
|
|
|
1, 1, 1, 1, 6, 1, 1, 19, 19, 1, 1, 48, 126, 48, 1, 1, 109, 594, 594, 109, 1, 1, 234, 2367, 4812, 2367, 234, 1, 1, 487, 8565, 31203, 31203, 8565, 487, 1, 1, 996, 29188, 176412, 312310, 176412, 29188, 996, 1, 1, 2017, 95644, 910300, 2620582, 2620582, 910300
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,5
|
|
|
COMMENTS
| Row sums are:
{1, 2, 8, 40, 224, 1408, 10016, 80512, 725504, 7257088}.
|
|
|
FORMULA
| t(n,m)=(2*A008292(n,m)-A007318(n,m)).
|
|
|
EXAMPLE
| {1},
{1, 1},
{1, 6, 1},
{1, 19, 19, 1},
{1, 48, 126, 48, 1},
{1, 109, 594, 594, 109, 1},
{1, 234, 2367, 4812, 2367, 234, 1},
{1, 487, 8565, 31203, 31203, 8565, 487, 1},
{1, 996, 29188, 176412, 312310, 176412, 29188, 996, 1},
{1, 2017, 95644, 910300, 2620582, 2620582, 910300, 95644, 2017, 1}
|
|
|
MATHEMATICA
| Table[Table[(2*Sum[(-1)^j Binomial[n + 1, j](k + 1 - j)^n, {j, 0, k + 1}] - Binomial[n - 1, k]), {k, 0, n - 1}], {n, 1, 10}]; Flatten[%]
|
|
|
CROSSREFS
| Cf. A008292, A007318.
Sequence in context: A157632 A176125 A168289 * A146957 A146988 A203954
Adjacent sequences: A141687 A141688 A141689 * A141691 A141692 A141693
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 09 2008
|
| |
|
|
