OFFSET
0,3
COMMENTS
This sequence is in reply to an extension request made in A100449.
Note that gcd(0,m) = m for any m.
LINKS
Robert Price, Table of n, a(n) for n = 0..400
MATHEMATICA
f[n_]:=Length[Complement[Union[Flatten[Table[If[Abs[i]+Abs[j]<=n&&GCD[i, j]<=1, {i*j}], {i, -n, n}, {j, -n, n}], 1]], {Null}]]; Table[f[n], {n, 0, 100}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Robert Price, May 09 2013
STATUS
approved