|
%I
%S 1,2,48,64512,20808990720,6658450862270054400,
%T 8590449816558320728896700416000,
%U 180165778137909187135292776823951671626301440000,246665746050863452218796304775365273357060390005370386894553088000000
%N Vandermonde determinant of the first n terms of (1,3,7,15,31,...).
%C Each term divides its successor, as in A028365 and A203307.
%t f[j_] := 2^j - 1; z = 15;
%t v[n_] := Product[Product[f[k] - f[j], {j, 1, k - 1}], {k, 2, n}]
%t Table[v[n], {n, 1, z}] (* A203305 *)
%t Table[v[n + 1]/v[n], {n, 1, z - 1}] (* A028365 *)
%t %/2 (* A203307 *)
%Y Cf. A028365, A203307, A000225.
%K nonn
%O 1,2
%A _Clark Kimberling_, Jan 01 2012
|
