OFFSET
1,3
COMMENTS
Empirical observation via computation.
LINKS
Wikipedia, Wythoff array
EXAMPLE
a(1) = 1 = |(4 + sqrt(17))*(4 - sqrt(17))|;
a(2) = 1 = |(12 + sqrt(145))*(1/(-12 - sqrt(145)))|;
a(3) = 4 = (1/2)*(63 + sqrt(3985))*(8/(-63 - sqrt(3985))).
MATHEMATICA
\[Phi] = (1 + Sqrt[5])/2;
A[m_, 1] := Floor[Floor[m*\[Phi]]*\[Phi]]
A[m_, 2] := Floor[Floor[m*\[Phi]]*\[Phi]^2]
A[m_, n_] := A[m, n] = A[m, n - 1] + A[m, n - 2]
M[n_] := Table[A[i, j], {i, 1, n}, {j, 1, n}]
X = Table[{n, -Simplify[Eigenvalues[M[n]][[1 ;; 2]][[1]]*Eigenvalues[M[n]][[1 ;; 2]][[2]]]}, {n, 2, 40}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gary E. Davis, Feb 26 2018
STATUS
approved