Search: id:A053827
Results 1-1 of 1 results found.

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

Search completed in 0.001 seconds