%I #7 Jan 14 2013 07:51:37
%S 1,3,6,49,147,2028,8112,159201,796005,20342448,122054688,3850078401,
%T 26950548807,1012487793408,8099902347264,353293863908769,
%U 3179644775178921,157973407966483200,1579734079664832000,88087149666575064369
%N Square root of A203764(n).
%t f[j_] := Floor[(j + 1)/2]; z = 16;
%t u := Product[f[j]^2 - f[j] f[k] + f[k]^2, {j, 1, k - 1}]
%t v[n_] := Product[u, {k, 2, n}]
%t Table[v[n], {n, 1, z}] (* A203763 *)
%t Table[v[n + 1]/v[n], {n, 1, z}] (* A203764 *)
%t Table[Sqrt[v[n + 1]/v[n]], {n, 1, 20}] (* A203765 *)
%Y Cf. A093883.
%K nonn
%O 1,2
%A _Clark Kimberling_, Jan 05 2012