OFFSET
1,1
MATHEMATICA
n=2; Do[If[OddQ[n=DivisorSigma[1, n]], Print[n]], {k, 2, 99}]
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Zak Seidov, Oct 07 2010
STATUS
approved