login
A102507
The imaginary part of a complex multiperfect number, see A102506.
7
3, 5, 2, 10, 18, 88, 12, 24, 20, 84, 120, 440, 950, 32, 209, 60, 418, 3800, 2256, 768, 120, 1280, 310, 200, 1152, 3840, 600, 4680, 404, 1712, 1240, 6240, 5016
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
Sequence in context: A356378 A258656 A112323 * A076556 A324776 A325891
KEYWORD
nonn
AUTHOR
T. D. Noe, Jan 12 2005
STATUS
approved