OFFSET
1,1
MATHEMATICA
lst={}; Do[z=n+k*I; s=DivisorSigma[1, z]; If[Mod[s, z]==0, AppendTo[lst, z]; Print[{z, s, s/z}]], {n, 1200}, {k, 10000}]; Im[lst]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Jan 12 2005
STATUS
approved