OFFSET
1,2
COMMENTS
MATHEMATICA
sm=0; seq={}; Do[s=DivisorSigma[1, n]/n; If[s<3 && s>sm, sm=s; AppendTo[seq, n]], {n, 1, 100000}]; seq
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Mar 26 2019
STATUS
approved