OFFSET
1,2
COMMENTS
EXAMPLE
Corner:
1 2 6 15 39 102 268 ...
3 7 17 43 112 292 592 ...
4 11 28 73 191 491 791 ...
5 14 38 100 263 563 863 ...
8 20 51 132 345 645 945 ...
9 23 61 159 416 716 1016 ...
...
MATHEMATICA
zz = 300; z = 30;
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, 2 k - 1] + w[2 h - 1, 2 k] + w[2 h, 2 k - 1] + w[2 h, 2 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}]](*A351996, array*)
v = Table[r[n - k + 1, k], {n, 12}, {k, n, 1, -1}] // Flatten (*A351996, sequence *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Clark Kimberling, Apr 05 2023
STATUS
approved