OFFSET
0,3
COMMENTS
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
KEYWORD
nonn,base,easy
AUTHOR
Jonathan Vos Post, May 10 2012
STATUS
approved