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
Examples
a(12) = 1^12 + 2^12 = 1 + 4096 = 4097.
Links
- Seiichi Manyama, Table of n, a(n) for n = 0..1048
Programs
-
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 *)