cp's OEIS Frontend

A055566 Sum of digits of n^5.

%I A055566 #16 Feb 12 2023 11:11:42
%S A055566 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 A055566 40,35,36,28,23,9,34,29,36,31,35,36,46,41,36,7,29,27,31,35,36,46,32,
%U A055566 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 A055566 Sum of digits of n^5.
%H A055566 Seiichi Manyama, <a href="/A055566/b055566.txt">Table of n, a(n) for n = 0..10000</a>
%e A055566 a(2) = 5 because 2^4 = 32 and 3+2 = 5.
%e A055566 Trajectories under the map x->a(x):
%e A055566 1 ->1 ->1 ->1 ->1 ->1 ->1 ->1 ->1 ->..
%e A055566 2 ->5 ->11 ->14 ->29 ->23 ->29 ->23 ->29 ->..
%e A055566 3 ->9 ->27 ->36 ->36 ->36 ->36 ->36 ->36 ->..
%e A055566 4 ->7 ->22 ->25 ->40 ->7 ->22 ->25 ->40 ->..
%e A055566 5 ->11 ->14 ->29 ->23 ->29 ->23 ->29 ->23 ->..
%e A055566 6 ->27 ->36 ->36 ->36 ->36 ->36 ->36 ->36 ->..
%e A055566 7 ->22 ->25 ->40 ->7 ->22 ->25 ->40 ->7 ->..
%p A055566 read("transforms") :
%p A055566 A055566 := proc(n)
%p A055566         digsum(n^5) ;
%p A055566 end proc: # _R. J. Mathar_, Jul 08 2012
%t A055566 Table[Total[IntegerDigits[n^5]],{n,0,80}] (* _Harvey P. Dale_, Feb 12 2023 *)
%o A055566 (PARI) a(n) = sumdigits(n^5); \\ _Seiichi Manyama_, Nov 16 2021
%Y A055566 Cf. A000012, A004159, A004164, A055565, A055567, A055571, A055576, A066588.
%K A055566 base,nonn
%O A055566 0,3
%A A055566 _Henry Bottomley_, May 26 2000