|
%I #7 Dec 16 2019 22:10:03
%S 1,2,6,9,16,19,28,33,44,49,64,67,84,93,110,119,140,143,168,179,204,
%T 215,244,251,282,297,328,339,378,381,420,435,470,495,538,551,596,613,
%U 658,675,730,733,788,811,860,883,940,949,1012,1039,1098,1119,1184,1201,1270,1307,1370,1393,1468,1471,1548,1577
%N a(n) = T(n,n+2), array T as in A049615.
%H G. C. Greubel, <a href="/A049622/b049622.txt">Table of n, a(n) for n = 0..1000</a>
%t T[n_, k_]:= Length[Select[Flatten[Table[{x, y}, {x,0,n}, {y,0,k}], 1], GCD @@ # > 1 &]]; Table[T[n, n+2], {n,0,65}] (* _G. C. Greubel_, Dec 16 2019 *)
%Y Cf. A049615, A049616, A049617, A049618, A049619, A049620, A049621, A049623.
%K nonn
%O 0,2
%A _Clark Kimberling_
%E Terms a(37) onward added by _G. C. Greubel_, Dec 16 2019
|
