OFFSET
1,1
MATHEMATICA
Table[Max[DivisorSigma[0, Prime[n]-1], DivisorSigma[0, Prime[n]+1]], {n, 1, 100}] (* Stefan Steinerberger, Oct 11 2008 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Oct 08 2008
EXTENSIONS
More terms from Stefan Steinerberger and Ray Chandler, Oct 11 2008
STATUS
approved