OFFSET
1,1
MATHEMATICA
Select[Range[1265], Mod[#, x = DivisorSigma[0, #]] == 0 && # < x^2 &] (* Jayanta Basu, Jun 27 2013 *)
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
STATUS
approved