|
|
A208653
|
|
a(n) = Product_{i=floor((n + 1)/2)..n-1} binomial(n-1, i).
|
|
4
|
|
|
1, 1, 1, 3, 4, 50, 90, 5145, 12544, 3429216, 11340000, 15219319500, 68309049600, 457937132487120, 2790771598030416, 94609025993497640625, 783056974947287040000, 135476575389769051389952000, 1523136299736565293430210560, 1354434926051634531310373234715648
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
m[n_]:=Floor[(n+1)/2]; z=21;
h[n_]:=Product[Binomial[n-1, i], {i, m[n], n-1}]
Table[h[n], {n, 1, z}] (* A208653 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|