OFFSET
1,1
COMMENTS
Corresponding odd terms 3,7,15,564210119465811 (A175878).
MATHEMATICA
n=2; Do[If[OddQ[n=DivisorSigma[1, n]], Print[{k, n}]], {k, 2, 99}]
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Zak Seidov, Oct 07 2010
STATUS
approved