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

Author

Henry Bottomley, Jun 19 2000

Keywords

• nonn
• easy
• base

Examples

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

Links

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

Crossrefs

Cf. A000583, A007953, A055570, A055575 (fixed points), A373914.

Other powers: A004159, A004164, A055566, A055567, A066588.

Programs

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

PARI

a(n) = sumdigits(n^4); \\ Seiichi Manyama, Nov 16 2021

Sage

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

Formula

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

Extensions

More terms from James Sellers, Jul 04 2000