cp's OEIS Frontend

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.

A200741 Table of distinct numbers of the form v*w + w*u + u*v with 1 <= u <= v <= w <= n.

This page as a plain text file.
%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