|
REFERENCES
|
A. Brousseau, Number Theory Tables. Fibonacci Association, San Jose, CA, 1973, p. 138.
J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 120, p. 42, Ellipses, Paris 2008.
R. K. Guy, Unsolved Problems in Number Theory, B2.
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
I. Stewart, L'univers des nombres, "Les nombres multiparfaits", Chap.15, pp 82-5, Belin/Pour la Science, Paris 2000.
David Wells, "The Penguin Book of Curious and Interesting Numbers," Penguin Books, London, 1986, pages 135, 159 and 185.
|
|
MATHEMATICA
|
AbundantQ[n_]:=DivisorSigma[1, n]==3*n; a={}; Do[If[AbundantQ[n], AppendTo[a, n]], {n, 10^6}]; a [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 07 2008]
|