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 A034288 #33 Nov 21 2024 16:54:57
%S A034288 1,4,6,8,10,12,18,20,24,30,36,48,60,72,84,90,96,108,120,168,180,240,
%T A034288 336,360,420,480,504,540,600,630,660,672,720,840,1080,1260,1440,1680,
%U A034288 2160,2520,3360,3780,3960,4200,4320,4620,4680,5040,7560,9240,10080
%N A034288 Product of proper divisors is larger than for any smaller number.
%H A034288 Amiram Eldar, <a href="/A034288/b034288.txt">Table of n, a(n) for n = 1..228</a> (terms below 10^10, terms 1..100 from T. D. Noe)
%t A034288 maxTerm = 10^6; record = 0; Reap[For[n = 1, n <= maxTerm, n++, p = Times @@ Most[Divisors[n]]; If[p > record, record = p; Print[n]; Sow[n]]]][[2, 1]] (* _Jean-François Alcover_, Aug 01 2013 *)
%t A034288 DeleteDuplicates[Table[{n,Times@@Most[Divisors[n]]},{n,11000}],GreaterEqual[#1[[2]],#2[[2]]]&][[;;,1]] (* _Harvey P. Dale_, Nov 21 2024 *)
%Y A034288 Cf. A034287, A034090, A034091, A067128, A140999.
%Y A034288 Indices of records of A007956.
%K A034288 easy,nonn,nice
%O A034288 1,2
%A A034288 _Erich Friedman_