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 *)
CROSSREFS
KEYWORD
easy,nonn,nice
AUTHOR
STATUS
approved