|
|
A227791
|
|
Central terms of the triangle in A227550.
|
|
3
|
|
|
1, 2, 8, 36, 176, 940, 5568, 37128, 280992, 2410812, 23250080, 249164344, 2934303264, 37617633976, 521009920256, 7748175156240, 123095897716800, 2080205257723740, 37253560076385120, 704703668205036120, 14039778681732928800, 293831851498842784680
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
b:= proc(x, y) option remember; `if`(x=0, y!,
b(x-1, y)+b(sort([x, y-1])[]))
end:
a:= n-> b(n$2):
|
|
MATHEMATICA
|
T[n_, 0] := n!; T[n_, n_] := n!;
T[n_, k_] /; 0<k<n := T[n, k] = T[n-1, k-1]+T[n-1, k];
a[n_] := T[2n, n];
|
|
PROG
|
(Haskell)
a227791 n = a227550 (2 * n) n
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|