OFFSET
1,2
COMMENTS
The corresponding quotients A160135(k)/k are 1, 1, 1, 1, 1, 2, 3, ...
a(8) > 1.5*10^10, if it exists.
EXAMPLE
MATHEMATICA
esigma[n_] := Times @@ (Sum[First[#]^d, {d, Divisors[Last[#]]}] &) /@ FactorInteger[n]; Select[Range[1000], Divisible[DivisorSigma[1, #] - esigma[#], #] &]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Amiram Eldar, Oct 25 2021
STATUS
approved