|
Search: id:A141903
|
|
| |
|
| 1, 1, 3, 1, 10, 1, 1, 25, 19, 3, 1, 56, 126, 56, 1, 1, 119, 594, 614, 109, 3, 1, 246, 2367, 4852, 2367, 246, 1, 1, 501, 8565, 31273, 31203, 8607, 487, 3, 1, 1012, 29188, 176524, 312310, 176524, 29188, 1012, 1, 1, 2035, 95644, 910468, 2620582, 2620834, 910300
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
Row sums are:
{1, 4, 12, 48, 240, 1440, 10080, 80640, 725760, 7257600}.
|
|
FORMULA
|
t(n,m)=2*A008292(n,m)- A130595(n,m).
|
|
EXAMPLE
|
{1},
{1, 3},
{1, 10, 1},
{1, 25, 19, 3},
{1, 56, 126, 56, 1},
{1, 119, 594, 614, 109, 3},
{1, 246, 2367, 4852, 2367, 246, 1},
{1, 501, 8565, 31273, 31203, 8607, 487, 3},
{1, 1012, 29188, 176524, 312310, 176524, 29188, 1012, 1},
{1, 2035, 95644, 910468, 2620582, 2620834, 910300, 95716, 2017, 3}
|
|
MATHEMATICA
|
A[n_, 1] := 1 A[n_, n_] := 1 A[n_, k_] := (n - k + 1)A[n - 1, k - 1] + k A[n - 1, k]; Table[Table[2*A[n, k] - (-1)^(k + 1)*Binomial[n - 1, k - 1], {k, 1, n}], {n, 1, 10}]; Flatten[%]
|
|
CROSSREFS
|
Cf. A008292 and A130595.
Sequence in context: A038202 A128415 A090479 this_sequence A010289 A127613 A019427
Adjacent sequences: A141900 A141901 A141902 this_sequence A141904 A141905 A141906
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Sep 14 2008
|
|
|
Search completed in 0.002 seconds
|
