OFFSET
1,1
COMMENTS
This sequence will contain terms of the form 5*P, where P is a perfect number (A000396) not divisible by 5. Proof: sigma(5*P)/(5*P) = sigma(5)*sigma(P)/(5*P) = 6*(2*P)/(5*P) = 12/5. QED
LINKS
G. P. Michon, Multiperfect Numbers and Hemiperfect Numbers
Walter Nissen, Abundancy: Some Resources (preliminary version 4)
EXAMPLE
6200 is a term, since sigma(6200)/6200 = 14880/6200 = 12/5.
MATHEMATICA
Select[Range[5*10^8], DivisorSigma[1, #]/# == 12/5 &]
Do[If[DivisorSigma[1, k]/k == 12/5, Print[k]], {k, 5*10^8}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Timothy L. Tiffin, Aug 23 2021
EXTENSIONS
a(9)-a(10) from Michel Marcus, Aug 24 2021
a(11)-a(12) from David A. Corneth, Aug 24 2021
STATUS
approved
