A055565 Sum of digits of n^4.

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

Offset

0,3

Links

Seiichi Manyama, Table of n, a(n) for n = 0..10000

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
(PARI) a(n) = sumdigits(n^4); \\ Seiichi Manyama, Nov 16 2021

Crossrefs

Cf. A000583, A007953, A004159, A004164, A055566, A055567, A055570, A055575, A066588.

Sequence in context: A352876 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