OFFSET
1,3
REFERENCES
M. Gardner, The Magic Numbers of Dr Matrix. Prometheus, Buffalo, NY, 1985, p. 249.
C. A. Pickover, Keys to Infinity. New York: W. H. Freeman, pp. 169-170, 1995.
LINKS
T. D. Noe, Table of n, a(n) for n=1..39 (complete sequence)
Harvey Heinz, Narcissistic Numbers
Mike Keith, Wild Narcissistic Numbers (Copy as of May 2008 on web.archive.org - page does not exist any more.)
Eric Weisstein's World of Mathematics, Narcissistic Number.
MATHEMATICA
(* This program is not suitable for more than 10 terms *) a[n_] := For[k = 10^(n-1), True, k++, If[k > 10^n - 1, Return[0], If[k == Total[ IntegerDigits[k]^IntegerLength[k] ], Return[k] ] ] ]; Table[ Print[an = a[n]]; an, {n, 1, 10}] (* Jean-François Alcover, Oct 15 2013 *)
CROSSREFS
KEYWORD
nonn,base,fini,full,nice,changed
AUTHOR
EXTENSIONS
Terms and links added by Patrick De Geest, Oct 1998
Broken links fixed by M. F. Hasler, Feb 12 2013
STATUS
approved