OFFSET
0,3
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+1], {n, 0, 65}] (* G. C. Greubel, Dec 16 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Terms a(37) onward added by G. C. Greubel, Dec 16 2019
STATUS
approved