1,2

J.-M. De Koninck, Ces nombres qui nous fascinent, Entry 145, p. 50, Ellipses, Paris 2008.

Clifford A. Pickover, A Passion for Mathematics, Wiley, 2005; see p. 68.

Joe Roberts, "The Lure of the Integers", page 35.

D. Wells, Curious and interesting numbers, Penguin Books, p. 125.

Project Euler, Problem 34

Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics.

Select[Range[50000], Plus @@ (IntegerDigits[ # ]!) == # &] - Alonso Delarte (alonso.delarte(AT)gmail.com), Jan 14 2008

Sequence in context: A093002 A074319 A071064 this_sequence A110624 A062596 A142415

Adjacent sequences: A014077 A014078 A014079 this_sequence A014081 A014082 A014083

nonn,fini,full,base

David W. Wilson (davidwwilson(AT)comcast.net)

Additional reference from Felice Russo (felice.russo(AT)katamail.com).