|
%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
|
