OFFSET
1,1
COMMENTS
By the theorem in comment in A273015, the sequence is finite.
MATHEMATICA
a = {}; b = {0}; Do[If[# >= Max@ b, AppendTo[a, k] && AppendTo[b, #]] &@ DivisorSigma[0, k], {k, 10^7}]; Select[a, FactorInteger[#][[-1, 1]] == 5 &] (* Michael De Vlieger, May 13 2016 *)
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
Vladimir Shevelev and Peter J. C. Moses, May 13 2016
STATUS
approved