login
A123253
Sum of 7th powers of digits of n.
3
0, 1, 128, 2187, 16384, 78125, 279936, 823543, 2097152, 4782969, 1, 2, 129, 2188, 16385, 78126, 279937, 823544, 2097153, 4782970, 128, 129, 256, 2315, 16512, 78253, 280064, 823671, 2097280, 4783097, 2187, 2188, 2315, 4374, 18571, 80312, 282123
OFFSET
0,3
COMMENTS
Fixed points are listed in A124068 = row n=7 of A252648. - M. F. Hasler, Apr 12 2015
LINKS
MAPLE
A123253 := proc(n)
add(d^7, d=convert(n, base, 10)) ;
end proc: # R. J. Mathar, Jan 16 2013
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