%I A053829
%S A053829 0,1,2,3,4,5,6,7,1,2,3,4,5,6,7,8,2,3,4,5,6,7,8,9,3,4,5,6,7,8,9,10,4,5,
%T A053829 6,7,8,9,10,11,5,6,7,8,9,10,11,12,6,7,8,9,10,11,12,13,7,8,9,10,11,12,
%U A053829 13,14,1,2,3,4,5,6,7,8,2,3,4,5,6,7,8,9,3,4,5,6,7,8,9,10,4,5,6,7,8,9,10
%N A053829 Sum of digits of n written in base 8.
%C A053829 Also the fixed point of the morphism 0->{0,1,2,3,4,5,6,7}, 1->{1,2,3,
               4,5,6,7,8}, 2->{2,3,4,5,6,7,8,9}, etc. - Robert G. Wilson v Jul 27 
               2006.
%C A053829 a(n) = A138530(n,8) for n > 7. - Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), 
               Mar 26 2008
%H A053829 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               DigitSum.html">Digit Sum</a>
%H A053829 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               Octal.html">Octal</a>
%F A053829 a(0)=0, a(8n+i)=a(n)+i 0<=i<=7; a(n)=n-7*(sum(k>0, floor(n/8^k))=n-7*A054897(n). 
               - Benoit Cloitre, Dec 19, 2002
%e A053829 a(20)=2+4=6 because 20 is written as 24 base 8
%t A053829 Table[Plus @@ IntegerDigits[n, 8], {n, 0, 95}] (* or *)
%t A053829 Nest[ Flatten[ #1 /. a_Integer -> Table[a + i, {i, 0, 7}]] &, {0}, 4] 
               (* Robert G. Wilson v Jul 27 2006 *)
%o A053829 (PARI) a(n)=if(n<1,0,if(n%8,a(n-1)+1,a(n/8)))
%Y A053829 Cf. A000120, A007953.
%Y A053829 Sequence in context: A010886 A002376 A055401 this_sequence A033928 A050985 
               A056192
%Y A053829 Adjacent sequences: A053826 A053827 A053828 this_sequence A053830 A053831 
               A053832
%K A053829 base,nonn
%O A053829 0,3
%A A053829 Henry Bottomley (se16(AT)btinternet.com), Mar 28 2000