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.

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, 15, 14, 13, 21, 21, 19, 19, 18, 16, 16, 14, 24, 23, 22, 21, 21, 19, 18, 17, 16, 27, 26, 24, 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

Offset: 1

Author

Clark Kimberling, Jul 22 2015

Keywords

• nonn
• tabl
• easy

Examples

			Northwest corner:
3    6    8    11   14   16   19
5    8    10   13   16   18   21
6    9    11   14   17   19   22
8    11   13   16   19   22   24
10   13   15   18   21   23   26
11   14   16   19   22   24   27
T(2,3) = u(2) + v(3) = 3 + 7 = 10.
		

Links

• Clark Kimberling, Antidiagonals n=1..60, flattened

Crossrefs

Cf. A259598, A259600, A259601.

Programs

Mathematica

r = GoldenRatio; z = 12;
u[n_] := u[n] = Floor[n*r]; v[n_] := v[n] = Floor[n*r^2];
s[m_, n_] := s[m, n] = u[m] + v[n]; t = Table[s[m, n], {m, 1, z}, {n, 1, z}]
TableForm[t] (* A259556 array *)
Table[s[n - k + 1, k], {n, z}, {k, n, 1, -1}] // Flatten (* A259556 sequence *)