A049644 T(n,n), array T given by A049639.

0, 0, 3, 3, 5, 5, 9, 9, 13, 13, 21, 21, 25, 25, 37, 37, 45, 45, 57, 57, 65, 65, 85, 85, 93, 93, 117, 117, 129, 129, 145, 145, 161, 161, 193, 193, 205, 205, 241, 241, 257, 257, 281, 281, 301, 301, 345, 345, 361, 361, 401, 401, 425, 425, 461, 461, 485, 485, 541, 541, 557, 557

Offset: 0

Author

Clark Kimberling

Keywords

• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 0..75

Crossrefs

Cf. A049691, A206297.

Programs

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[n, n], {n, 0, 25}] (* G. C. Greubel, Dec 07 2017 *)

Extensions

Terms a(42) onward added by G. C. Greubel, Dec 10 2017