A123253 Sum of 7th powers of digits of n.

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

Author

Zerinvary Lajos, Nov 06 2006

Keywords

• easy
• nonn
• base

Comments

Fixed points are listed in A124068 = row n=7 of A252648. - M. F. Hasler, Apr 12 2015

Links

• G. C. Greubel, Table of n, a(n) for n = 0..5000

Crossrefs

Cf. A003132, A055012, A055013, A055014, A055015, A210840.

Programs

Magma

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

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 *)

PARI

A123253(n)=sum(i=1,#n=digits(n),n[i]^7) \\ M. F. Hasler, Apr 12 2015