This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A100439 #6 Jul 16 2015 00:36:46
%S A100439 0,0,1,4,10,20,31,48,70,96,123,161,197,240,293,340,394,460,524,596,
%T A100439 670,744,819,918,1016,1112,1217,1322,1429,1561,1679,1798,1943,2072,
%U A100439 2218,2379,2518,2669,2838,3009,3178,3361,3536,3713,3924,4120,4304,4522,4727
%N A100439 Number of distinct values of i*j + j*k + k*i with 1 <= i<j<k <= n.
%p A100439 f:=proc(n) local i,j,k,t1; t1:={}; for i from 1 to n-2 do for j from i+1 to n-1 do for k from j+1 to n do t1:={op(t1),i*j+j*k+k*i}; od: od: od: t1:=convert(t1,list); nops(t1); end;
%t A100439 f[n_] := Length[ Union[ Flatten[ Table[i*j + j*k + k*i, {i, n}, {j, i + 1, n}, {k, j + 1, n}] ]]]; Table[ f[n], {n, 49}] (* _Robert G. Wilson v_, Dec 14 2004 *)
%Y A100439 Cf. A027430, A100440, A102533, A102534.
%K A100439 nonn
%O A100439 1,4
%A A100439 _N. J. A. Sloane_, Nov 21 2004
%E A100439 More terms from _Robert G. Wilson v_, Dec 14 2004