cp's OEIS Frontend

A027428 Number of distinct products ij with 1 <= i < j <= n. (Number of terms appearing more than once in a 1-to-n multiplication table.)

%I A027428 #27 Oct 13 2023 18:50:39
%S A027428 0,1,3,6,10,13,19,24,31,36,46,51,63,70,78,87,103,111,129,139,150,161,
%T A027428 183,192,210,223,239,252,280,291,321,337,354,371,390,403,439,458,478,
%U A027428 493,533,549,591,611,631,654,700,717,752,774,800,823,875
%N A027428 Number of distinct products ij with 1 <= i < j <= n. (Number of terms appearing more than once in a 1-to-n multiplication table.)
%H A027428 Branden Aldridge, <a href="/A027428/b027428.txt">Table of n, a(n) for n = 1..20000</a> (terms 1..1000 from T. D. Noe).
%F A027428 a(n) = A027427(n) - 1. - _T. D. Noe_, Jan 16 2007
%p A027428 f:=proc(n) local i,j,t1,t2; t1:={}; for i from 1 to n-1 do for j from i+1 to n do t1:={op(t1),i*j}; od: od: t1:=convert(t1,list); nops(t1); end;
%t A027428 a[n_] := Table[i*j, {i, 1, n-1}, {j, i+1, n}] // Flatten // Union // Length; Table[ a[n] , {n, 1, 53}] (* _Jean-François Alcover_, Jan 31 2013 *)
%o A027428 (Haskell)
%o A027428 import Data.List (nub)
%o A027428 a027428 n = length $ nub [i*j | j <- [2..n], i <- [1..j-1]]
%o A027428 -- _Reinhard Zumkeller_, Jan 01 2012
%o A027428 (Python)
%o A027428 def A027428(n): return len({i*j for i in range(1,n+1) for j in range(1,i)}) # _Chai Wah Wu_, Oct 13 2023
%Y A027428 Cf. A027424, A027427, A027430.
%K A027428 nonn,easy,nice
%O A027428 1,3
%A A027428 _N. J. A. Sloane_