OFFSET
0,3
COMMENTS
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..5000
MAPLE
MATHEMATICA
Table[Sum[DigitCount[n][[i]] i^7, {i, 9}], {n, 0, 40}] (* Bruno Berselli, Feb 01 2013 *)
PROG
(Magma) [0] cat [&+[d^7: d in Intseq(n)]: n in [1..40]]; // Bruno Berselli, Feb 01 2013
(PARI) A123253(n)=sum(i=1, #n=digits(n), n[i]^7) \\ M. F. Hasler, Apr 12 2015
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Zerinvary Lajos, Nov 06 2006
STATUS
approved