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,2

Links

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

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 *)

Crossrefs

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

Indices of records of A007956.

Sequence in context: A194594 A163248 A341280 * A131984 A359330 A307542

Adjacent sequences: A034285 A034286 A034287 * A034289 A034290 A034291

Keyword

easy,nonn,nice

Author

Erich Friedman

Status

approved