login
(1/n)*A073617(n+1).
2

%I #5 Mar 30 2012 18:58:13

%S 1,1,1,3,6,40,150,2100,14700,423360,5556600,325987200,8068183200,

%T 958961203200,44996257706400,10799101849536000,965169727802280000,

%U 466713183932835840000,79775138681769651120000

%N (1/n)*A073617(n+1).

%t p[n_] := Product[Binomial[n + 1 - k, k],

%t {k, 1, Floor[(n + 1)/2]}]

%t Table[p[n], {n, 1, 20}] (* A073617(n+1) *)

%t Table[p[n]/n, {n, 1, 20}] (* A208649 *)

%Y Cf. A073617.

%K nonn

%O 1,4

%A _Clark Kimberling_, Feb 29 2012