OFFSET
1,2
COMMENTS
Every positive integer occurs exactly once, so that as a sequence, this is a permutation of the positive integers. The difference between consecutive row terms is a Fibonacci number, as is the difference between consecutive terms in column 1.
Northwest corner:
1 3 6 8 9 11 14 16
4 7 12 15 20 25 28 33
2 10 23 31 36 44 52 57
5 18 26 39 60 73 94 115
13 47 81 102 136 157 191 225
68 123 212 301 356 445 500 534
34 178 267 411 555 644 788 1021
MATHEMATICA
g = GoldenRatio; z = 50000; t = Table[N[FractionalPart[n*g]], {n, 1, z}];
r[k_] := Select[Range[z], 1/2^(k + 1) < t[[#]] < 1/2^k &];
s[n_] := Take[r[n], Min[20, Length[r[n]]]];
TableForm[Table[s[k], {k, 0, 10}]] (* this sequence as an array *)
w[i_, j_] := s[i][[j]]; Flatten[Table[w[n - k , k], {n, 10}, {k, n, 1, -1}]] (* this sequence *)
CROSSREFS
KEYWORD
AUTHOR
Clark Kimberling, Mar 16 2017
STATUS
approved