OFFSET
1,1
COMMENTS
a(9) > 2*10^11. - Giovanni Resta, Sep 06 2019
MATHEMATICA
s[n_] := DivisorSum[n, # &, # > Sqrt[n] &]; seq={}; s1 = 0; Do[s2 = s[n]; If[s1 == s2, AppendTo[seq, n - 1]]; s1 = s2, {n, 2, 10000}]; seq
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Sep 03 2019
EXTENSIONS
a(8) from Giovanni Resta, Sep 06 2019
STATUS
approved