OFFSET
1,2
COMMENTS
Previous name was: Numbers n such that sigma(k)/k < sigma(n)/n for k=1,2,3...,n-1.
PROG
(PARI) lista(nn) = {vs = Set(); maxs = 0; for(n = 1, nn, news = sigma(n, -1); if (news > maxs, maxs = news; print1(n, ", "); vs = Set(concat(vs, maxs)); , if (setsearch(vs, news), print1(n, ", ")); ); ); } \\ Michel Marcus, Dec 02 2013
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Aug 23 2002
EXTENSIONS
New name and more terms from Michel Marcus, Dec 02 2013
STATUS
approved