%I #2 Mar 30 2012 17:31:10
%S 0,1,4,10,20,35,50,72,100,129,163,203,244,290,346,400,461,526,600,676,
%T 756,836,925,1018,1117,1220,1325,1435,1554,1683,1811,1938,2078,2212,
%U 2367,2526,2677,2835,3003,3169,3350,3527,3714,3898,4099,4304,4498,4713
%N Number of distinct values of i*j + j*k + k*i with 1 <= i < j <= k <= n.
%t 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}]
%Y Cf. A100439, A100440, A102534.
%K nonn
%O 0,3
%A _Robert G. Wilson v_, Jan 13 2005