OFFSET
1,1
COMMENTS
First differs from A333949 at n = 18.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..500
MATHEMATICA
s[1] = 1; s[n_] := Times @@ (1 + Sum[First[#]^d, {d, Divisors[Last[#]]}] &) /@ FactorInteger[n]; Select[Range[2*10^5], s[#] == s[#+1] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Nov 13 2021
STATUS
approved