OFFSET
1,1
EXAMPLE
Corner:
2, 5, 7, 10, 13, 15, 18, 20, 23, ...
4, 10, 14, 20, 26, 30, 36, 40, 46, ...
8, 18, 26, 36, 47, 55, 65, 73, 84, ...
14, 31, 46, 63, 81, 96, 112, 127, 145, ...
25, 53, 79, 107, 136, 162, 189, 215, 244, ...
42, 88, 132, 178, 225, 269, 314, 358, 405, ...
71, 146, 219, 294, 370, 443, 517, 590, 666, ...
...
MATHEMATICA
z = 1000; r = N[(-1+Sqrt[5])/2];
s[m_] := Range[z] r^m; t[0] = s[0];
t[n_] := Sort[Union[s[n], t[n - 1]]]
row[n_] := Flatten[Table[Position[t[n], N[k]], {k, 1, z}]]
TableForm[Table[row[n], {n, 1, 10}]] (* A347068, array *)
w[n_, k_] := row[n][[k]];
Table[w[n - k + 1, k], {n, 12}, {k, n, 1, -1}] // Flatten (* A347068, sequence *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Clark Kimberling, Sep 02 2021
STATUS
approved