OFFSET
1,2
COMMENTS
EXAMPLE
Corner:
1 2 3 5 9 15 24 ...
4 6 10 16 26 42 68 ...
7 11 18 29 46 74 119 ...
8 14 23 38 62 100 162 ...
12 19 31 50 81 131 212 ...
13 22 36 59 97 158 191 ...
...
MATHEMATICA
zz = 300; z = 40;
w[n_, k_] := w[n, k] = Fibonacci[k + 1] Floor[n*GoldenRatio] + (n - 1) Fibonacci[k];
b[h_, k_] := b[h, k] = w[2 h - 1, k] + w[2 h, k];
s = Flatten[Table[b[h, k], {h, 1, zz}, {k, 1, z}]];
r[h_, k_] := Length[Select[s, # <= b[h, k] &]]
TableForm[Table[r[h, k], {h, 1, 50}, {k, 1, 12}]] (*A351995, array*)
v = Table[r[n - k + 1, k], {n, 12}, {k, n, 1, -1}] // Flatten (*A351995, sequence*)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Clark Kimberling, Apr 05 2023
STATUS
approved