|
%I M0532 #40 Nov 18 2019 22:06:08
%S 0,1,2,3,4,5,10,11,12,13,14,15,20,21,22,23,24,25,30,31,32,33,34,35,40,
%T 41,42,43,44,45,50,51,52,53,54,55,100,101,102,103,104,105,110,111,112,
%U 113,114,115,120,121,122,123,124,125,130,131,132,133,134,135,140,141,142,143,144,145
%N Numbers in base 6.
%C Nonnegative integers with no decimal digits > 5. - _Karol Bacik_, Sep 25 2012
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H Nathaniel Johnston, <a href="/A007092/b007092.txt">Table of n, a(n) for n = 0..10000</a>
%H Wikipedia, <a href="http://www.wikipedia.org/wiki/Senary">Senary</a>
%H R. G. Wilson, V, <a href="/A007088/a007088.pdf">Letter to N. J. A. Sloane, Sep. 1992</a>
%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.
%F a(0)=0, a(n) = 10*a(n/6) if n==0 (mod 6), and a(n) = a(n-1)+1 otherwise. - _Benoit Cloitre_, Dec 22 2002
%F a(n) = Sum{d(i)*10^i: i=0,1,...,m}, where Sum{d(i)*6^i: i=1,2,...,m} = n, and d(i) in {0,1,...,5}. - _Karol Bacik_, Sep 25 2012
%p A007092 := proc(n) local l: if(n=0)then return 0: fi: l:=convert(n,base,6): return op(convert(l,base,10,10^nops(l))): end: seq(A007092(n),n=0..59); # _Nathaniel Johnston_, May 06 2011
%t Table[ FromDigits[ IntegerDigits[n, 6]], {n, 0, 65}]
%o (PARI) a(n)=if(n%6,a(n-1)+1,if(n,10*a(n/6),0)) \\ corrected by _Charles R Greathouse IV_, Sep 25 2012
%o (PARI) a(n)=n=digits(n,6);n[1]=Str(n[1]);eval(concat(n)) \\ _Charles R Greathouse IV_, Sep 25 2012
%o (PARI) apply( A007092(n)=fromdigits(digits(n, 6)), [0..66]) \\ _M. F. Hasler_, Nov 18 2019
%o (Haskell)
%o a007092 0 = 0
%o a007092 n = 10 * a007092 n' + m where (n', m) = divMod n 6
%o -- _Reinhard Zumkeller_, Mar 06 2015
%Y Cf. A000042 (base 1), A007088 (base 2), A007089 (base 3), A007090 (base 4), A007091 (base 5), A007093 (base 7), A007094 (base 8), A007095 (base 9).
%K nonn,easy,base
%O 0,3
%A _N. J. A. Sloane_, _Robert G. Wilson v_
|
