|
%I #7 Jan 14 2013 10:14:13
%S 5,56,1080,52416,2073600,168537600,9963233280,1122750720000,
%T 234209649623040,22056529195008000,5634088861040640000,
%U 1027073825689514803200,132063784535221862400000,27917533370401003929600000
%N v(n+1)/v(n), where v=A203521.
%t f[j_] := Prime[j]; z = 15;
%t v[n_] := Product[Product[f[k] + f[j], {j, 1, k - 1}], {k, 2, n}]
%t d[n_] := Product[(i - 1)!, {i, 1, n}] (* A000178 *)
%t Table[v[n], {n, 1, z}] (* A203521 *)
%t Table[v[n + 1]/v[n], {n, 1, z - 1}] (* A203522 *)
%t Table[v[n]/d[n], {n, 1, 20}] (* A203523 *)
%Y Cf. A203522, A203523, A000040, A093883.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 03 2012
|
