cp's OEIS Frontend

A259556 Rectangular array, read by antidiagonals: T(h,k) = u(h) + v(k), where u = A000201 (lower Wythoff numbers), v = A001950 (upper Wythoff numbers), and h >= 1, k >= 1.

%I A259556 #15 Jul 31 2015 04:28:03
%S A259556 3,6,5,8,8,6,11,10,9,8,14,13,11,11,10,16,16,14,13,13,11,19,18,17,16,
%T A259556 15,14,13,21,21,19,19,18,16,16,14,24,23,22,21,21,19,18,17,16,27,26,24,
%U A259556 24,23,22,21,19,19,18,29,29,27,26,26,24,24,22,21,21,19,32,31,30,29,28,27,26,25,24,23,22,21
%N A259556 Rectangular array, read by antidiagonals:  T(h,k) = u(h) + v(k), where u = A000201 (lower Wythoff numbers), v =  A001950 (upper Wythoff numbers), and h >= 1, k >= 1.
%H A259556 Clark Kimberling, <a href="/A259556/b259556.txt">Antidiagonals n=1..60, flattened</a>
%e A259556 Northwest corner:
%e A259556 3    6    8    11   14   16   19
%e A259556 5    8    10   13   16   18   21
%e A259556 6    9    11   14   17   19   22
%e A259556 8    11   13   16   19   22   24
%e A259556 10   13   15   18   21   23   26
%e A259556 11   14   16   19   22   24   27
%e A259556 T(2,3) = u(2) + v(3) = 3 + 7 = 10.
%t A259556 r = GoldenRatio; z = 12;
%t A259556 u[n_] := u[n] = Floor[n*r]; v[n_] := v[n] = Floor[n*r^2];
%t A259556 s[m_, n_] := s[m, n] = u[m] + v[n]; t = Table[s[m, n], {m, 1, z}, {n, 1, z}]
%t A259556 TableForm[t] (* A259556 array *)
%t A259556 Table[s[n - k + 1, k], {n, z}, {k, n, 1, -1}] // Flatten (* A259556 sequence *)
%Y A259556 Cf. A259598, A259600, A259601.
%K A259556 nonn,tabl,easy
%O A259556 1,1
%A A259556 _Clark Kimberling_, Jul 22 2015