|
|
REFERENCES
|
J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 125, p. 43, Ellipses, Paris 2008.
Jean-Marie De Koninck and Armel Mercier, Introduction a la theorie des nombres, Collection Universitaire de Mathematiques, Modulo, p. 85.
J.-M. De Koninck and A. Mercier, 1001 Problemes en Theorie Classique Des Nombres, Problem 700 pp. 91; 299, Ellipses Paris 2004.
|
|
|
MATHEMATICA
|
cnQ[n_]:=Module[{sod=Total[Rest[Most[Divisors[n]]]]}, sod == Total[IntegerDigits[n]^2]]; Select[Range[2, 17000], cnQ] (* From Harvey P. Dale, June 17 2011 *)
|
