%I #12 Oct 28 2013 16:18:55
%S 1,8,19,17,19,35,37,35,55,71,55,62,64,80,91,80,109,98,91,98,82,116,
%T 136,143,109,152,163,152,145,152,172,170,172,170,208,215,199,197,226,
%U 233,217,206,271,224,244,242,253,287,244,305,271,269,298,305,325,314
%N Sum of digits of 17^n.
%H Irene Sermon, <a href="/A227881/b227881.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = A007953(A001026(n)).
%e For n = 8, 17^8 = 6975757441 and the digit sum is 55.
%t Table[Total[IntegerDigits[17^n]], {n, 0, 100}] (* _T. D. Noe_, Oct 28 2013 *)
%Y Cf. A001026, A227871.
%K nonn,base,less
%O 0,2
%A _Irene Sermon_, Oct 25 2013