login
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.
6
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,1
LINKS
EXAMPLE
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.
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 *)
CROSSREFS
KEYWORD
nonn,tabl,easy
AUTHOR
Clark Kimberling, Jul 22 2015
STATUS
approved