|
Search: id:A156139
|
|
|
| A156139 |
|
A triangular recursion: A(n,k)=(2*n - k - 1)*A(n - 1, k - 1) + (k + 1)*A(n - 1, k) |
|
+0
3
|
|
| 1, 1, 1, 1, 6, 1, 1, 23, 28, 1, 1, 76, 250, 145, 1, 1, 237, 1608, 2475, 876, 1, 1, 722, 8802, 26847, 25056, 6139, 1, 1, 2179, 43872, 231057, 418806, 268477, 49120, 1, 1, 6552, 205994, 1725621, 5285520, 6486205, 3077730, 442089, 1, 1, 19673, 928808
(list; table; graph; listen)
|
|
|
OFFSET
|
1,5
|
|
|
COMMENT
|
Row sums are:
{1, 2, 8, 53, 473, 5198, 67568, 1013513, 17229713, 327364538,...}.
|
|
REFERENCES
|
Leonard M. Smiley,"Completion of a Rational Function Sequence of Carlitz,http://www.math.uaa.alaska.edu/~smiley/BSfront.html,page 2.
|
|
FORMULA
|
A(n,k)=(2*n - k - 1)*A(n - 1, k - 1) + (k + 1)*A(n - 1, k)
|
|
EXAMPLE
|
{1},
{1, 1},
{1, 6, 1},
{1, 23, 28, 1},
{1, 76, 250, 145, 1},
{1, 237, 1608, 2475, 876, 1},
{1, 722, 8802, 26847, 25056, 6139, 1},
{1, 2179, 43872, 231057, 418806, 268477, 49120, 1},
{1, 6552, 205994, 1725621, 5285520, 6486205, 3077730, 442089, 1},
{1, 19673, 928808, 11718015, 55871814, 114115195, 102456300, 37833831, 4420900, 1}
|
|
MATHEMATICA
|
A[n_, 1] := 1; A[n_, n_] := 1;
A[n_, k_] := (2*n - k - 1)*A[n - 1, k - 1] + (k + 1)*A[n - 1, k];
TableForm[Table[A[n, k], {n, 10}, {k, n}], TableAlignments -> Right];
Table[Table[A[n, k], {k, n}], {n, 10}];
Flatten[%]
|
|
CROSSREFS
|
Sequence in context: A152936 A152969 A060187 this_sequence A155863 A035348 A140945
Adjacent sequences: A156136 A156137 A156138 this_sequence A156140 A156141 A156142
|
|
KEYWORD
|
nonn,tabl,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Feb 04 2009
|
|
|
Search completed in 0.002 seconds
|
