A049622 a(n) = T(n,n+2), array T as in A049615.

1, 2, 6, 9, 16, 19, 28, 33, 44, 49, 64, 67, 84, 93, 110, 119, 140, 143, 168, 179, 204, 215, 244, 251, 282, 297, 328, 339, 378, 381, 420, 435, 470, 495, 538, 551, 596, 613, 658, 675, 730, 733, 788, 811, 860, 883, 940, 949, 1012, 1039, 1098, 1119, 1184, 1201, 1270, 1307, 1370, 1393, 1468, 1471, 1548, 1577

Offset

0,2

Links

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

Mathematica

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 *)

Crossrefs

Cf. A049615, A049616, A049617, A049618, A049619, A049620, A049621, A049623.

Sequence in context: A329743 A320496 A172433 * A043548 A347535 A354975

Adjacent sequences: A049619 A049620 A049621 * A049623 A049624 A049625

Keyword

nonn

Author

Clark Kimberling

Extensions

Terms a(37) onward added by G. C. Greubel, Dec 16 2019

Status

approved