A055207 Sum of n-th powers of digits of n.

1, 1, 4, 27, 256, 3125, 46656, 823543, 16777216, 387420489, 1, 2, 4097, 1594324, 268435457, 30517578126, 2821109907457, 232630513987208, 18014398509481985, 1350851717672992090, 1048576, 2097153, 8388608, 94151567435, 281474993487872, 298023223910507557

Offset

0,3

Links

Seiichi Manyama, Table of n, a(n) for n = 0..1048

Example

a(12) = 1^12 + 2^12 = 1 + 4096 = 4097.

Maple

a:= n-> add(i^n, i=convert(n, base, 10)):
seq(a(n), n=0..29);  # Alois P. Heinz, Dec 18 2022

Mathematica

Join[{1}, Table[Total[IntegerDigits[n]^n], {n, 25}]] (* Harvey P. Dale, Jul 16 2011 *)

Crossrefs

Cf. A045503, A003132, A055012, A055013, A055014.

Sequence in context: A086756 A061510 A045512 * A214877 A067041 A070691

Adjacent sequences: A055204 A055205 A055206 * A055208 A055209 A055210

Keyword

base,easy,nonn,look

Author

Henry Bottomley, Jun 19 2000

Status

approved