OFFSET
0,13
COMMENTS
It appears that T(n, k) = A049687(n/2, k/2).
LINKS
G. C. Greubel, Table of n, a(n) for the first 50 rows, flattened
EXAMPLE
Antidiagonals (each starting on row 1):
0.
0, 0.
1, 0, 1.
1, 1, 1, 1.
1, 1, 3, 1, 1.
1, 1, 3, 3, 1, 1.
1, 1, 4, 3, 4, 1, 1.
...
MATHEMATICA
a[0|1, 0|1] = 0; a[0|1, _] = a[_, 0|1] = 1; a[i_, j_] := Module[{slopes, cnt}, slopes = Union @ Flatten @ Table[(k-j)/(h-i), {h, 0, i-1}, {k, 0, j - 1}]; cnt[slope_] := Count[Flatten[Table[{h, k}, {h, 0, i-1}, {k, 0, j - 1}], 1], {h_, k_} /; (k-j)/(h-i) == slope]; Count[cnt /@ slopes, c_ /; c >= 2] + 2]; Table[a[i-j, j], {i, 0, 12}, {j, 0, i}] // Flatten (* Jean-François Alcover, Apr 03 2017 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
STATUS
approved