OFFSET
1,2
MATHEMATICA
Select[Range[1300], #<=DivisorSigma[0, #]^2&] (* Harvey P. Dale, Mar 16 2012 *)
PROG
(PARI) is(n)=numdiv(n)^2>=n \\ Charles R Greathouse IV, Aug 03 2012
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
STATUS
approved