A035138 Integers that are equal to the sum of ascending numbers raised to their digits powers.

1, 594, 746, 986, 1000000009

Offset: 1

Author

Patrick De Geest, Nov 15 1998

Keywords

• nonn
• fini
• base
• full

Examples

			594: 1^5 + 2^9 + 3^4 = 1 + 512 + 81 = 594.
		

Links

• Harvey Heinz, Narcissistic Numbers

Crossrefs

Cf. A032799.

Programs

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 *)

PARI

isok(n) = my(d=digits(n)); sum(k=1, #d, k^d[k]) == n; \\ Michel Marcus, Feb 24 2017