A049620 -id:A049620 - cp's OEIS frontend

A049621 a(n) = T(n,n+1), array T as in A049615.

0, 1, 4, 8, 12, 18, 24, 30, 38, 48, 56, 66, 76, 86, 102, 118, 128, 142, 156, 170, 192, 214, 228, 246, 268, 288, 312, 338, 356, 380, 404, 422, 452, 484, 514, 550, 576, 598, 634, 674, 700, 732, 764, 790, 836, 882, 908, 942, 982, 1020, 1070, 1118, 1148, 1186, 1238, 1286, 1340, 1392, 1424, 1470, 1516

Offset: 0

Clark Kimberling

nonn

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

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

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

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

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

Original entry on oeis.org

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

Clark Kimberling

nonn

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

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

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

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

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

Original entry on oeis.org

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

Clark Kimberling

nonn

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

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

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

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

cp's OEIS Frontend

A049621 a(n) = T(n,n+1), array T as in A049615.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Extensions

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

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Extensions

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

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Extensions