OFFSET
0,3
MATHEMATICA
f[n_] := Length[ Union[ Flatten[ Table[i*j + j*k + k*i, {i, n}, {j, i + 1, n}, {k, j, n}] ]]]; Table[ f[n], {n, 48}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 13 2005
STATUS
approved