login
Sum of n-th powers of digits of n.
1

%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