%I #17 Dec 18 2022 12:14:50
%S 1,1,4,27,256,3125,46656,823543,16777216,387420489,1,2,4097,1594324,
%T 268435457,30517578126,2821109907457,232630513987208,
%U 18014398509481985,1350851717672992090,1048576,2097153,8388608,94151567435,281474993487872,298023223910507557
%N Sum of n-th powers of digits of n.
%H Seiichi Manyama, <a href="/A055207/b055207.txt">Table of n, a(n) for n = 0..1048</a>
%e a(12) = 1^12 + 2^12 = 1 + 4096 = 4097.
%p a:= n-> add(i^n, i=convert(n, base, 10)):
%p seq(a(n), n=0..29); # _Alois P. Heinz_, Dec 18 2022
%t Join[{1},Table[Total[IntegerDigits[n]^n],{n,25}]] (* _Harvey P. Dale_, Jul 16 2011 *)
%Y Cf. A045503, A003132, A055012, A055013, A055014.
%K base,easy,nonn,look
%O 0,3
%A _Henry Bottomley_, Jun 19 2000