|
REFERENCES
|
S. Benkoski, "Are All Weird Numbers Even?" Amer. Math. Monthly 79, 774, 1972.
R. K. Guy, "Almost Perfect, Quasi-Perfect, Pseudoperfect, Harmonic, Weird, Multiperfect and Hyperperfect Numbers." B2 in Unsolved Problems in Number Theory, 2nd ed.New York:Springer- Verlag, pp. 45-53, 1994.
C. Rivera, Puzzle 233, www.primepuzzles.net
|
|
MATHEMATICA
|
Do[If[OddQ[n] && DivisorSigma[1, n] - 2n == 6, Print[n]], {n, 2*10^9}]
|