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