login
A222947
Number of distinct sums i+j+k with |i|, |j|, |k|, |i*j*k| <= n and gcd(i,j,k) <= 1.
7
1, 7, 9, 11, 15, 19, 21, 27, 29, 35, 37, 43, 45, 51, 53, 59, 61, 67, 69, 75, 77, 83, 85, 91, 93, 99, 101, 107, 109, 115, 117, 123, 125, 131, 133, 139, 141, 147, 149, 155, 157, 163, 165, 171, 173, 179, 181, 187, 189, 195, 197, 203, 205, 211, 213, 219, 221
OFFSET
0,2
COMMENTS
Note that gcd(0,m) = m for any m.
LINKS
MATHEMATICA
f[n_] := Length[Complement[Union[Flatten[Table[If[Abs[i*j*k] ≤ n && GCD[i, j, k] <= 1, {i + j + k}], {i, -n, n}, {j, -n, n}, {k, -n, n}], 2]], {Null}]]; Table[f[n], {n, 0, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Price, Jun 12 2013
STATUS
approved