A203744 - OEIS

%I #7 Jan 14 2013 04:48:38

%S 1,1,9,3087,491453487,199355231015744076,

%T 1670853975432258811676271416172,

%U 1893588915901757181126922024000776555730414763148,2071486075345864360727487613123282727407169939419132023198357982044106944

%N Vandermonde sequence using x^2 - xy + y^2 applied to the first n Fibonacci numbers, A000045.

%C See A093883 for a discussion and guide to related sequences.

%t f[j_] := Fibonacci[j]; z = 11;

%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}]          (* A203744 *)

%t Table[v[n + 1]/v[n], {n, 1, z}] (* A203745 *)

%K nonn

%O 1,3

%A _Clark Kimberling_, Jan 05 2012