|
|
|
|
1, 1, 1, 3, 6, 40, 150, 2100, 14700, 423360, 5556600, 325987200, 8068183200, 958961203200, 44996257706400, 10799101849536000, 965169727802280000, 466713183932835840000, 79775138681769651120000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
LINKS
|
|
|
MATHEMATICA
|
p[n_] := Product[Binomial[n + 1 - k, k],
{k, 1, Floor[(n + 1)/2]}]
Table[p[n], {n, 1, 20}] (* A073617(n+1) *)
Table[p[n]/n, {n, 1, 20}] (* A208649 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|