|
|
A049622
|
|
a(n) = T(n,n+2), array T as in A049615.
|
|
4
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|