This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A191360 #15 Feb 26 2023 08:18:50
%S A191360 0,1,2,-1,3,-2,0,4,-3,-1,1,-4,5,-5,-2,0,-6,2,-7,-3,6,-8,-4,-1,-9,1,
%T A191360 -10,-5,3,-11,-6,-2,-12,7,-13,-7,-3,-14,0,-15,-8,2,-16,-9,-4,-17,4,
%U A191360 -18,-10,-5,-19,-1,-20,-11,8,-21,-12,-6,-22,-2,-23,-13,1,-24,-14,-7,-25,3,-26,-15,-8,-27,-3,-28,-16,5,-29,-17,-9,-30
%N A191360 Number of the diagonal of the Wythoff array that contains n.
%C A191360 Every integer occurs in this sequence (infinitely many times).
%C A191360 Represent the array as {g(i,j): i>=1, j>=1}. Then for m>=0, (diagonal #m) is the sequence (g(i,i+m)), i>=1; for m<0, (diagonal #m) is the sequence (g(i+m,i)), i>=1.
%e A191360 The main diagonal of the Wythoff array is (1,7,16,...); that's diagonal #0, so that a(1)=0, a(7)=0, a(16)=0.
%t A191360 f[n_]:=f[n]=Fibonacci[n];
%t A191360 g[i_,j_]:=f[j+1]*Floor[i*GoldenRatio]+(i-1) f[j];
%t A191360 t=Table[g[i,j],{i,500},{j,100}];
%t A191360 Map[#[[2]]-#[[1]]&,Most[Reap[NestWhileList[#+1&,1,Length[Sow[FirstPosition[t,#]]]>1&]][[2]][[1]]]] (* _Peter J. C. Moses_, Feb 09 2023 *)
%Y A191360 Cf. A035513, A114327, A191361, A191362.
%K A191360 sign
%O A191360 1,3
%A A191360 _Clark Kimberling_, May 31 2011
%E A191360 Mathematica program replaced by _Clark Kimberling_, Feb 10 2023.