OFFSET
1,1
COMMENTS
EXAMPLE
Northwest corner:
4 7 12 20 25 33 38 41 46
6 11 19 32 40 53 61 66 74
10 18 31 52 65 86 99 102 120
16 29 50 84 105 139 160 173 194
26 47 81 136 170 225 259 280 314
MATHEMATICA
b[n_] = Fibonacci[n]; bb = Table[b[n], {n, 1, 70}];
h[0] = {1}; h[n_] := Join[h[n - 1], Table[b[n + 2], {k, 1, b[n]}]];
g = h[18]; r[0] = {0};
r[n_] := If[MemberQ[bb, n], {n}, Join[{g[[n]]}, -r[g[[n]] - n]]];
t = Table[Last[r[n]], {n, 0, 1000}]; (* A256656 *)
TableForm[Table[Flatten[-1 + Position[t, b[n]]], {n, 2, 8}]] (* A256658 *)
TableForm[Table[Flatten[-1 + Position[t, -b[n]]], {n, 2, 8}]] (* A256659 *)
CROSSREFS
KEYWORD
AUTHOR
Clark Kimberling, Apr 08 2015
STATUS
approved