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

1, 594, 746, 986, 1000000009

Offset

1,2

Links

Table of n, a(n) for n=1..5.

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

Cf. A032799.

Sequence in context: A294713 A025338 A025330 * A206211 A200434 A241876

Adjacent sequences: A035135 A035136 A035137 * A035139 A035140 A035141

Keyword

nonn,fini,base,full

Author

Patrick De Geest, Nov 15 1998

Status

approved