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 A200741 #15 Dec 04 2013 06:50:59 %S A200741 3,3,5,8,12,3,5,7,8,11,12,15,16,21,27,3,5,7,8,9,11,12,14,15,16,19,20, %T A200741 21,24,26,27,32,33,40,48,3,5,7,8,9,11,12,14,15,16,17,19,20,21,23,24, %U A200741 26,27,29,31,32,33,35,38,39,40,45,47,48,55,56,65,75,3,5 %N A200741 Table of distinct numbers of the form v*w + w*u + u*v with 1 <= u <= v <= w <= n. %C A200741 A100440(n) = number of terms in row n; %C A200741 T(1,1) = 3; right edge: T(n,A100440(n)) = A033428(n); %C A200741 T(n,k) = T(n+1,k) for k <= A200742(n); %C A200741 distinct terms per row of table in A200737. %H A200741 Reinhard Zumkeller, <a href="/A200741/b200741.txt">Rows n=1..25 of triangle, flattened</a> %t A200741 row[n_] := Table[v*w + w*u + u*v, {u, 1, n}, {v, u, n}, {w, v, n}] // Flatten // Union; Table[row[n], {n, 1, 6}] // Flatten (* _Jean-François Alcover_, Dec 04 2013 *) %o A200741 (Haskell) %o A200741 import Data.List (nub) %o A200741 a200741 n k = a200741_tabl !! (n-1) !! (k-1) %o A200741 a200741_row = nub . a200737_row %o A200741 a200741_tabl = map a200741_row [1..] %K A200741 nonn,tabf %O A200741 1,1 %A A200741 _Reinhard Zumkeller_, Nov 21 2011