OFFSET
1,1
COMMENTS
FORMULA
EXAMPLE
Divisors of 7597 are {1,71,107,7597}, whose sum is 7776, so 7597 is in the sequence.
MATHEMATICA
Select[Range[7600], DivisorSigma[1, #]==7776&] (* Harvey P. Dale, Jun 04 2016 *)
PROG
(PARI) for(i=1, t=6^5, sigma(i)==t & print1(i", ")) \\ M. F. Hasler, Dec 09 2009
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
EXTENSIONS
Minor edits, keywords added, and values checked with given PARI code by M. F. Hasler, Dec 09 2009
STATUS
approved