OFFSET
1,1
MATHEMATICA
Select[Range[19358], Sum[f, {f, Select[Divisors[#], PrimeQ]}]==DivisorSigma[1, #+1]-(#+1)&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Metin Sariyar, Jul 08 2022
EXTENSIONS
More terms from Amiram Eldar, Jul 08 2022
STATUS
approved