[go: up one dir, main page]

login
A208649
(1/n)*A073617(n+1).
2
1, 1, 1, 3, 6, 40, 150, 2100, 14700, 423360, 5556600, 325987200, 8068183200, 958961203200, 44996257706400, 10799101849536000, 965169727802280000, 466713183932835840000, 79775138681769651120000
OFFSET
1,4
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
Cf. A073617.
Sequence in context: A114038 A000222 A372017 * A371063 A203178 A104271
KEYWORD
nonn
AUTHOR
Clark Kimberling, Feb 29 2012
STATUS
approved