|
Search: id:A102507
|
|
|
| A102507 |
|
The imaginary part of a complex multiperfect number, see A102506. |
|
+0
5
|
|
| 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
(list; graph; listen)
|
|
|
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: A077952 A077975 A112323 this_sequence A076556 A108426 A053979
Adjacent sequences: A102504 A102505 A102506 this_sequence A102508 A102509 A102510
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
T. D. Noe (noe(AT)sspectra.com), Jan 12 2005
|
|
|
Search completed in 0.002 seconds
|
