A049623 a(n) = T(n,n+3), array T as in A049615.

2, 3, 7, 12, 17, 22, 31, 38, 45, 56, 65, 74, 91, 100, 111, 130, 141, 154, 177, 190, 205, 230, 249, 264, 291, 312, 329, 360, 379, 396, 433, 452, 481, 518, 539, 570, 611, 636, 659, 704, 731, 756, 809, 834, 861, 914, 947, 978, 1031, 1066, 1099, 1154, 1199, 1232, 1291, 1336, 1371, 1436, 1469, 1502, 1575

Offset

0,1

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+3], {n, 0, 65}] (* G. C. Greubel, Dec 16 2019 *)

Crossrefs

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

Sequence in context: A019568 A128458 A066733 * A302506 A228828 A061577

Adjacent sequences: A049620 A049621 A049622 * A049624 A049625 A049626

Keyword

nonn

Author

Clark Kimberling

Extensions

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

Status

approved