Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A175878
Odd terms in A007497.
2
3, 7, 15, 564210119465811
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