OFFSET
1,1
MATHEMATICA
k=2880; lst={}; Do[d=DivisorSigma[1, n]; If[d==k, AppendTo[lst, n]], {n, 7!}]; lst
PROG
(PARI) is(n)=sigma(n)==2880 \\ Charles R Greathouse IV, Jun 19 2016
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 20 2008
STATUS
approved