OFFSET
1,2
COMMENTS
a(28) > 2*10^11. 14451706793984, 2258918614925312 and 9007202811510784 are also terms. - Donovan Johnson, Feb 10 2012
a(28) > 10^13. - Giovanni Resta, Nov 13 2019
MATHEMATICA
Do[If[Mod[DivisorSigma[1, n]+DivisorSigma[0, n], n]==0, Print[n]], {n, 1, 10^8}]
PROG
(PARI) for(n=1, 10^8, if(Mod((sigma(n)+numdiv(n)), n)==0, print(n)))
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jul 26 2000
EXTENSIONS
Corrected by Jason Earls, Aug 06 2001
Corrected by T. D. Noe, Nov 01 2006
a(25)-a(27) from Donovan Johnson, Dec 07 2008
STATUS
approved