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