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,3

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

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

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

Sequence in context: A331198 A250365 A017678 * A001015 A352053 A050754

Adjacent sequences: A123250 A123251 A123252 * A123254 A123255 A123256

Keyword

easy,nonn,base

Author

Zerinvary Lajos, Nov 06 2006

Status

approved