%I A073636
%S A073636 1,8,9,1,8,9,1,8,9,1,8,9,1,8,9,1,8,9,1,8,9,1,8,9,1,8,9,1,8,9,1,8,9,1,8,
               9,1,8,9,1,8,9,
%T A073636 1,8,9,1,8,9,1,8,9,1,8,9,1,8,9,1,8,9,1,8,9,1,8,9,1,8,9,1,8,9,1,8,9,1,8,
               9,1,8,9,1,8,9,
%U A073636 1,8,9,1,8,9,1,8,9,1,8,9,1,8,9,1,8,9,1,8,9,1,8,9,1,8,9,1,8,9,1,8,9,1,8,
               9,1,8,9,1,8,9
%N A073636 Digital root of n^3.
%C A073636 Periodic with cycle {1,8,9}.
%C A073636 a(n) is the decimal expansion of 44/37 [From Barbarel Tres Mil (barbarel3000(AT)yahoo.es), 
               Jul 28 2009]
%F A073636 a(n)=(1/3)*{14*[n mod 3]+5*[(n+1) mod 3]-[(n+2) mod 3]}, with n>=0 - 
               Paolo P. Lava (ppl(AT)spl.at), Jun 08 2007
%t A073636 n=3; su[x_] := Sum[IntegerDigits[x][[i]], {i, Length[IntegerDigits[x]]}]; 
               Table[su[su[su[su[x^n]]]], {x, 100}]
%Y A073636 Cf. A010888, A021596. Digital roots of squares are in A056992.
%Y A073636 Sequence in context: A154904 A155553 A053463 this_sequence A113521 A030167 
               A010767
%Y A073636 Adjacent sequences: A073633 A073634 A073635 this_sequence A073637 A073638 
               A073639
%K A073636 nonn,base
%O A073636 1,2
%A A073636 Zak Seidov (zakseidov(AT)yahoo.com), Sep 01 2002