OFFSET
1,2
MATHEMATICA
Select[Range[1000], IntegerQ[Sum[k/DivisorSigma[0, k], {k, Divisors[#]}]] &] (* Vaclav Kotesovec, Mar 22 2019 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Apr 06 2002
STATUS
approved