A222947 Number of distinct sums i+j+k with |i|, |j|, |k|, |i*j*k| <= n and gcd(i,j,k) <= 1.

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

Author

Robert Price, Jun 12 2013

Keywords

• nonn

Comments

Note that gcd(0,m) = m for any m.

Links

• Robert Price, Table of n, a(n) for n = 0..100

Crossrefs

Cf. A226357, A226359, A222945.

Programs

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}]