OFFSET
1,2
LINKS
Harvey Heinz, Narcissistic Numbers
EXAMPLE
594: 1^5 + 2^9 + 3^4 = 1 + 512 + 81 = 594.
MATHEMATICA
A035138 = {}; Do[d = IntegerDigits[n]; If[Total[Range[Length[d]]^d] == n, AppendTo[A035138, n]], {n, 1000}]; A035138 (* Jayanta Basu and Giovanni Resta, May 12 2013 *)
PROG
(PARI) isok(n) = my(d=digits(n)); sum(k=1, #d, k^d[k]) == n; \\ Michel Marcus, Feb 24 2017
CROSSREFS
KEYWORD
nonn,fini,base,full
AUTHOR
Patrick De Geest, Nov 15 1998
STATUS
approved