login
Square root of A203764(n).
3

%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