|
Search: id:A156529
|
|
|
| A156529 |
|
A triangular sequence: e(n,k)=(k + 1)e(n - 1, k) + (2n - k - 1)e(n - 1, k - 1); t(n,m)=(e(n, k)*e(n, n - k - 1)). |
|
+0
1
|
|
| 1, 2, 2, 6, 64, 6, 24, 1276, 1276, 24, 120, 23088, 107584, 23088, 120, 720, 422712, 6388800, 6388800, 422712, 720, 5040, 8156160, 326165400, 1031694400, 326165400, 8156160, 5040, 40320, 168521184, 15666814800, 126099116000, 126099116000
(list; table; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
Row sums are:
{1, 4, 76, 2600, 154000, 13624464, 1700347600, 283868984608, 61166882025040,
16525206308179712,...}
|
|
FORMULA
|
e(n,k)=(k + 1)e(n - 1, k) + (2n - k - 1)e(n - 1, k - 1); t(n,m)=(e(n, k)*e(n, n - k - 1))..
|
|
EXAMPLE
|
{1},
{2, 2},
{6, 64, 6},
{24, 1276, 1276, 24},
{120, 23088, 107584, 23088, 120},
{720, 422712, 6388800, 6388800, 422712, 720},
{5040, 8156160, 326165400, 1031694400, 326165400, 8156160, 5040},
{40320, 168521184, 15666814800, 126099116000, 126099116000, 15666814800, 168521184, 40320},
{362880, 3748855680, 741628668960, 13217568000000, 33240990250000, 13217568000000, 741628668960, 3748855680, 362880},
{3628800, 89830895040, 35494281317376, 1272445743488640, 6954573294760000, 6954573294760000, 1272445743488640, 35494281317376, 89830895040, 3628800}
|
|
MATHEMATICA
|
e[n_, 0] := 1;
e[n_, k_] := 0 /; k >= n;
e[n_, k_] := (k + 1)e[n - 1, k] + (2n - k - 1)e[n - 1, k - 1];
Table[Table[(e[n, k]*e[n, n - k - 1]), {k, 0, n - 1}], {n, 1, 10}];
Flatten[%]
|
|
CROSSREFS
|
A008517
Sequence in context: A002027 A032117 A137244 this_sequence A093909 A114362 A164325
Adjacent sequences: A156526 A156527 A156528 this_sequence A156530 A156531 A156532
|
|
KEYWORD
|
nonn,tabl,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Feb 09 2009
|
|
|
Search completed in 0.002 seconds
|
