A034288 Product of proper divisors is larger than for any smaller number.

1, 4, 6, 8, 10, 12, 18, 20, 24, 30, 36, 48, 60, 72, 84, 90, 96, 108, 120, 168, 180, 240, 336, 360, 420, 480, 504, 540, 600, 630, 660, 672, 720, 840, 1080, 1260, 1440, 1680, 2160, 2520, 3360, 3780, 3960, 4200, 4320, 4620, 4680, 5040, 7560, 9240, 10080

Offset: 1

Author

Erich Friedman

Keywords

• easy
• nonn
• nice

Links

• Amiram Eldar, Table of n, a(n) for n = 1..228 (terms below 10^10, terms 1..100 from T. D. Noe)

Crossrefs

Cf. A034287, A034090, A034091, A067128, A140999.

Indices of records of A007956.

Programs

Mathematica

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 *)
DeleteDuplicates[Table[{n,Times@@Most[Divisors[n]]},{n,11000}],GreaterEqual[#1[[2]],#2[[2]]]&][[;;,1]] (* Harvey P. Dale, Nov 21 2024 *)