|
%I #22 Sep 08 2022 08:46:01
%S 0,1,256,6561,65536,390625,1679616,5764801,16777216,43046721,1,2,257,
%T 6562,65537,390626,1679617,5764802,16777217,43046722,256,257,512,6817,
%U 65792,390881,1679872,5765057,16777472,43046977,6561,6562,6817,13122,72097,397186
%N Sum of the 8th powers of the digits of n.
%C This is to exponent 8 as A007953 is to exponent 0, A003132 is to exponent 2, and A055013 is to exponent 4. The subsequence of primes (for n = 11, 12, 14, 21, 41, ...) begins 2, 257, 65537, 65537.
%e a(12) = 1^8 + 2^8 = 257.
%t Table[Total[IntegerDigits[n]^8], {n, 0, 100}] (* _T. D. Noe_, May 18 2012 *)
%t Table[Sum[DigitCount[n][[i]] i^8, {i, 9}], {n, 0, 35}] (* _Bruno Berselli_, Feb 01 2013 *)
%o (Magma) [0] cat [&+[d^8: d in Intseq(n)]: n in [1..35]]; // _Bruno Berselli_, Feb 01 2013
%Y Cf. A007953, A003132, A055013.
%K nonn,base,easy
%O 0,3
%A _Jonathan Vos Post_, May 10 2012
|
