OFFSET
0,2
COMMENTS
Apparently a(n) = A004766(n) for n>=2. - R. J. Mathar, May 26 2024
LINKS
Robert Price, Table of n, a(n) for n = 0..100
MATHEMATICA
f[n_] := Length[Complement[Union[Flatten[Table[If[Abs[i*j*k] ≤ n, {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