|
%I #8 Dec 16 2019 22:09:57
%S 0,1,4,8,12,18,24,30,38,48,56,66,76,86,102,118,128,142,156,170,192,
%T 214,228,246,268,288,312,338,356,380,404,422,452,484,514,550,576,598,
%U 634,674,700,732,764,790,836,882,908,942,982,1020,1070,1118,1148,1186,1238,1286,1340,1392,1424,1470,1516
%N a(n) = T(n,n+1), array T as in A049615.
%H G. C. Greubel, <a href="/A049621/b049621.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+1], {n,0,65}] (* _G. C. Greubel_, Dec 16 2019 *)
%Y Cf. A049615, A049616, A049617, A049618, A049619, A049620, A049622, A049623.
%K nonn
%O 0,3
%A _Clark Kimberling_
%E Terms a(37) onward added by _G. C. Greubel_, Dec 16 2019
|
