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