OFFSET
1,2
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[1, 10^4, 2], Plus @@ IntegerDigits[#] == DivisorSigma[0, #] &] (* Giovanni Resta, Apr 24 2017 *)
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Asher Auel, Sep 03 2000
STATUS
approved