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 A360485 #6 Feb 09 2023 22:28:10
%S A360485 1,2,3,2,4,3,3,5,4,4,4,5,6,6,5,5,7,5,8,6,7,9,7,6,10,6,11,8,6,12,9,7,
%T A360485 13,8,14,10,8,15,7,16,11,7,17,12,9,18,7,19,13,10,20,8,21,14,9,22,15,
%U A360485 11,23,9,24,16,8,25,17,12,26,8,27,18,13,28,10,29,19
%N A360485 a(n) = index of the antidiagonal of the Wythoff array (A035513) that includes n.
%C A360485 Each m appears exactly m times.
%t A360485 W[n_, k_] := Fibonacci[k + 1] Floor[n*GoldenRatio] + (n - 1) Fibonacci[k];
%t A360485 t = Table[W[n - k + 1, k], {n, 300}, {k, n, 1, -1}];
%t A360485 Map[#[[1]] &, Most[Reap[NestWhileList[# + 1 &, 1,
%t A360485 Length[Sow[FirstPosition[t, #]]] > 1 &]][[2]][[1]]]]
%t A360485 (* _Peter J. C. Moses_, Feb 08 2023 *)
%Y A360485 Cf. A035513, A191360, A360379.
%K A360485 nonn,easy
%O A360485 1,2
%A A360485 _Clark Kimberling_, Feb 09 2023