

A055565


Sum of digits of n^4.


8



0, 1, 7, 9, 13, 13, 18, 7, 19, 18, 1, 16, 18, 22, 22, 18, 25, 19, 27, 10, 7, 27, 22, 31, 27, 25, 37, 18, 28, 25, 9, 22, 31, 27, 25, 19, 36, 28, 25, 18, 13, 31, 27, 25, 37, 18, 37, 43, 27, 31, 13, 27, 25, 37, 27, 28, 43, 18, 31, 22, 18, 34, 37, 36, 37, 34, 45, 13, 31, 27, 7
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,3


LINKS

Table of n, a(n) for n=0..70.


FORMULA

a(n) = A007953(A000583(n)).  Michel Marcus, Feb 23 2015


EXAMPLE

a(2) = 7 because 2^4 = 16 and 1+6 = 7.


MAPLE

for i from 0 to 200 do printf(`%d, `, add(j, j=convert(i^4, base, 10))) od;


MATHEMATICA

a[n_Integer]:=Apply[Plus, IntegerDigits[n^4]]; Table[a[n], {n, 0, 100}] (* Vincenzo Librandi, Feb 23 2015 *)


PROG

(Sage) [sum((n^4).digits()) for n in (0..70)] # Bruno Berselli, Feb 23 2015


CROSSREFS

Cf. A000583, A007953, A004159, A004164, A055566, A055567, A055570, A055575.
Sequence in context: A112529 A161892 A056528 * A196088 A066498 A102306
Adjacent sequences: A055562 A055563 A055564 * A055566 A055567 A055568


KEYWORD

nonn,base


AUTHOR

Henry Bottomley, Jun 19 2000


EXTENSIONS

More terms from James A. Sellers, Jul 04 2000


STATUS

approved



