A210840 Sum of the 8th powers of the digits of n.

0, 1, 256, 6561, 65536, 390625, 1679616, 5764801, 16777216, 43046721, 1, 2, 257, 6562, 65537, 390626, 1679617, 5764802, 16777217, 43046722, 256, 257, 512, 6817, 65792, 390881, 1679872, 5765057, 16777472, 43046977, 6561, 6562, 6817, 13122, 72097, 397186

Offset

0,3

Comments

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.

Links

Table of n, a(n) for n=0..35.

Example

a(12) = 1^8 + 2^8 = 257.

Mathematica

Table[Total[IntegerDigits[n]^8], {n, 0, 100}] (* T. D. Noe, May 18 2012 *)
Table[Sum[DigitCount[n][[i]] i^8, {i, 9}], {n, 0, 35}] (* Bruno Berselli, Feb 01 2013 *)

Prog

(Magma) [0] cat [&+[d^8: d in Intseq(n)]: n in [1..35]]; // Bruno Berselli, Feb 01 2013

Crossrefs

Cf. A007953, A003132, A055013.

Sequence in context: A351196 A016900 A017680 * A001016 A352054 A351606

Adjacent sequences: A210837 A210838 A210839 * A210841 A210842 A210843

Keyword

nonn,base,easy

Author

Jonathan Vos Post, May 10 2012

Status

approved