%I #19 Aug 06 2021 17:31:21

%S 1,1,4,5,7,8,11,14,17,18,23,28,31,34,41,46,51,54,61,70,75,78,89,100,

%T 105,110,123,130,137,144,153,168,177,182,199,216,223,230,249,260,269,

%U 278,291,312,323,330,353,372,381,392,413,430,443,454,473,500,513,520,549,578,587,602

%N T(n,n+3), array T given by A049639.

%H Sean A. Irvine, <a href="/A049649/b049649.txt">Table of n, a(n) for n = 0..500</a> (terms 1..76 from G. C. Greubel)

%t T[0 | 1, 0 | 1] = 0; T[0 | 1, _] = T[_, 0 | 1] = 1; T[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[T[n, n + 3], {n, 0, 50}] (* _G. C. Greubel_, Dec 05 2017 *)

%Y Cf. A049639.

%K nonn

%O 0,3

%A _Clark Kimberling_

%E Terms a(37) onward added by _G. C. Greubel_, Dec 10 2017

%E Missing a(0)=1 inserted by _Sean A. Irvine_, Aug 06 2021