A055566 - OEIS

%I #16 Feb 12 2023 11:11:42

%S 0,1,5,9,7,11,27,22,26,27,1,14,27,25,29,36,31,35,45,37,5,18,25,29,36,

%T 40,35,36,28,23,9,34,29,36,31,35,36,46,41,36,7,29,27,31,35,36,46,32,

%U 45,43,11,27,22,44,36,37,41,36,52,47,27,40,35,45,37,32,36,25,47,36,22,35

%N Sum of digits of n^5.

%H Seiichi Manyama, <a href="/A055566/b055566.txt">Table of n, a(n) for n = 0..10000</a>

%e a(2) = 5 because 2^4 = 32 and 3+2 = 5.

%e Trajectories under the map x->a(x):

%e 1 ->1 ->1 ->1 ->1 ->1 ->1 ->1 ->1 ->..

%e 2 ->5 ->11 ->14 ->29 ->23 ->29 ->23 ->29 ->..

%e 3 ->9 ->27 ->36 ->36 ->36 ->36 ->36 ->36 ->..

%e 4 ->7 ->22 ->25 ->40 ->7 ->22 ->25 ->40 ->..

%e 5 ->11 ->14 ->29 ->23 ->29 ->23 ->29 ->23 ->..

%e 6 ->27 ->36 ->36 ->36 ->36 ->36 ->36 ->36 ->..

%e 7 ->22 ->25 ->40 ->7 ->22 ->25 ->40 ->7 ->..

%p read("transforms") :

%p A055566 := proc(n)

%p         digsum(n^5) ;

%p end proc: # _R. J. Mathar_, Jul 08 2012

%t Table[Total[IntegerDigits[n^5]],{n,0,80}] (* _Harvey P. Dale_, Feb 12 2023 *)

%o (PARI) a(n) = sumdigits(n^5); \\ _Seiichi Manyama_, Nov 16 2021

%Y Cf. A000012, A004159, A004164, A055565, A055567, A055571, A055576, A066588.

%K base,nonn

%O 0,3

%A _Henry Bottomley_, May 26 2000