OFFSET
1,2
MATHEMATICA
Select[Range[1000], Max[IntegerDigits[#]]== DivisorSigma[0, #]&] (* Harvey P. Dale, Mar 13 2011 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Jun 27 2004
STATUS
approved