OFFSET
1,1
COMMENTS
LINKS
Reinhard Zumkeller, Rows n=1..25 of triangle, flattened
MATHEMATICA
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 *)
PROG
(Haskell)
import Data.List (nub)
a200741 n k = a200741_tabl !! (n-1) !! (k-1)
a200741_row = nub . a200737_row
a200741_tabl = map a200741_row [1..]
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Reinhard Zumkeller, Nov 21 2011
STATUS
approved