cp's OEIS Frontend

A027420 Triangle T00, T10, T01, T20, T11, T02, etc., where Tmn = number of distinct products ij with min(m,n) <= i,j <= max(m,n).

%I A027420 #16 Jun 15 2015 02:31:44
%S A027420 1,2,2,4,1,4,7,3,3,7,10,6,1,6,10,15,9,3,3,9,15,19,14,6,1,6,14,19,26,
%T A027420 18,10,3,3,10,18,26,31,25,14,6,1,6,14,25,31,37,30,20,10,3,3,10,20,30,
%U A027420 37,43,36,25,15,6,1,6,15,25,36,43,54,42,31,20,10,3,3,10,20,31,42,54
%N A027420 Triangle T00, T10, T01, T20, T11, T02, etc., where Tmn = number of distinct products ij with min(m,n) <= i,j <= max(m,n).
%C A027420 T(n,0) = T(n,n) = A027384(n). - _Reinhard Zumkeller_, May 02 2014
%H A027420 Reinhard Zumkeller, <a href="/A027420/b027420.txt">Rows n = 0..125 of table, flattened</a>
%t A027420 t[m_, n_] := i*j /. {ToRules @ Reduce[ Min[m, n] <= i <= j <= Max[m, n], Integers]} // Union // Length; row[n_] := Table[ t[m, n-m], {m, 0, n} ]; Table[ row[n], {n, 0, 11}] // Flatten (* _Jean-François Alcover_, Apr 16 2013 *)
%o A027420 (Haskell)
%o A027420 import Data.List (nub)
%o A027420 a027420 n k = a027420_tabl !! n !! k
%o A027420 a027420_row n = a027420_tabl !! n
%o A027420 a027420_tabl = zipWith (zipWith z) a002262_tabl a025581_tabl
%o A027420                where z u v = length $ nub $ [i * j | i <- zs, j <- zs]
%o A027420                              where zs = [min u v .. max u v]
%o A027420 -- _Reinhard Zumkeller_, May 02 2014
%Y A027420 Cf. A027384.
%Y A027420 Cf. A241944 (row sums), A002262, A025581.
%K A027420 tabl,nonn,easy,nice
%O A027420 0,2
%A A027420 _N. J. A. Sloane_
%E A027420 More terms from _Olivier Gérard_, Nov 15 1997