This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A055207 #17 Dec 18 2022 12:14:50 %S A055207 1,1,4,27,256,3125,46656,823543,16777216,387420489,1,2,4097,1594324, %T A055207 268435457,30517578126,2821109907457,232630513987208, %U A055207 18014398509481985,1350851717672992090,1048576,2097153,8388608,94151567435,281474993487872,298023223910507557 %N A055207 Sum of n-th powers of digits of n. %H A055207 Seiichi Manyama, <a href="/A055207/b055207.txt">Table of n, a(n) for n = 0..1048</a> %e A055207 a(12) = 1^12 + 2^12 = 1 + 4096 = 4097. %p A055207 a:= n-> add(i^n, i=convert(n, base, 10)): %p A055207 seq(a(n), n=0..29); # _Alois P. Heinz_, Dec 18 2022 %t A055207 Join[{1},Table[Total[IntegerDigits[n]^n],{n,25}]] (* _Harvey P. Dale_, Jul 16 2011 *) %Y A055207 Cf. A045503, A003132, A055012, A055013, A055014. %K A055207 base,easy,nonn,look %O A055207 0,3 %A A055207 _Henry Bottomley_, Jun 19 2000