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 A123253 #16 Sep 08 2022 08:45:28
%S A123253 0,1,128,2187,16384,78125,279936,823543,2097152,4782969,1,2,129,2188,
%T A123253 16385,78126,279937,823544,2097153,4782970,128,129,256,2315,16512,
%U A123253 78253,280064,823671,2097280,4783097,2187,2188,2315,4374,18571,80312,282123
%N A123253 Sum of 7th powers of digits of n.
%C A123253 Fixed points are listed in A124068 = row n=7 of A252648. - _M. F. Hasler_, Apr 12 2015
%H A123253 G. C. Greubel, <a href="/A123253/b123253.txt">Table of n, a(n) for n = 0..5000</a>
%p A123253 A123253 := proc(n)
%p A123253 add(d^7,d=convert(n,base,10)) ;
%p A123253 end proc: # _R. J. Mathar_, Jan 16 2013
%t A123253 Table[Sum[DigitCount[n][[i]] i^7, {i, 9}], {n, 0, 40}] (* _Bruno Berselli_, Feb 01 2013 *)
%o A123253 (Magma) [0] cat [&+[d^7: d in Intseq(n)]: n in [1..40]]; // _Bruno Berselli_, Feb 01 2013
%o A123253 (PARI) A123253(n)=sum(i=1,#n=digits(n),n[i]^7) \\ _M. F. Hasler_, Apr 12 2015
%Y A123253 Cf. A003132, A055012, A055013, A055014, A055015, A210840.
%K A123253 easy,nonn,base
%O A123253 0,3
%A A123253 _Zerinvary Lajos_, Nov 06 2006