login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A034288 Product of proper divisors is larger than for any smaller number. 7
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 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

T. D. Noe, Table of n, a(n) for n = 1..100

MAPLE

with(numtheory);

A034288:=proc(q)

local a, b, c, d, k, n;

k:=0;

for n from 1 to q do

  a:=divisors(n); b:=nops(a); a:=op(a); d:=1;

  for c from 1 to b-1 do d:=d*a[c]; od;

  if d>k then print(n); k:=d; fi;

od; end:

A034288(10000); # Paolo P. Lava, Oct 18 2012

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

CROSSREFS

Cf. A007956, A034287, A034090, A034091.

Sequence in context: A194579 A194594 A163248 * A131984 A307542 A225510

Adjacent sequences:  A034285 A034286 A034287 * A034289 A034290 A034291

KEYWORD

easy,nonn,nice

AUTHOR

Erich Friedman

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 24 06:53 EDT 2019. Contains 323529 sequences. (Running on oeis4.)