A203586 v(n+1)/v(n), where v=A203585.

13, 500, 40426, 5709600, 1256804900, 399383584000, 173474742285000, 98872482630272000, 71645799536067250000, 64368175738481971200000, 70249051303937073666500000, 91567621291850074309120000000

Offset: 1

Author

Clark Kimberling, Jan 04 2012

Keywords

• nonn

Comments

See A093883 for a discussion and guide to related sequences.

Programs

Mathematica

f[j_] := j + 1; z = 12;
v[n_] := Product[Product[f[j]^2 + f[k]^2, {j, 1, k - 1}], {k, 2, n}]
Table[v[n], {n, 1, z}]          (* A203585 *)
Table[v[n + 1]/v[n], {n, 1, z}] (* A203586 *)