A203754 Square root of A203753(n).

1, 1, 6, 12, 147, 441, 8112, 32448, 796005, 3980025, 122054688, 732328128, 26950548807, 188653841649, 8099902347264, 64799218778112, 3179644775178921, 28616802976610289, 1579734079664832000, 15797340796648320000

Offset

1,3

Links

Table of n, a(n) for n=1..20.

Mathematica

f[j_] := Floor[j/2]; z = 20;
u := Product[f[j]^2 - f[j] f[k] + f[k]^2, {j, 1, k - 1}]
v[n_] := Product[u, {k, 2, n}]
Table[v[n], {n, 1, z}]        (* A203752 *)
Table[v[n + 1]/v[n], {n, 1, z}]  (* A203753 *)
Table[Sqrt[v[n + 1]/v[n]], {n, 1, z}]  (* A203754 *)

Crossrefs

Cf. A093883.

Sequence in context: A070020 A308565 A341106 * A002922 A334916 A329929

Adjacent sequences: A203751 A203752 A203753 * A203755 A203756 A203757

Keyword

nonn

Author

Clark Kimberling, Jan 05 2012

Status

approved