The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A038572 a(n) = n rotated one binary place to the right. 30
 0, 1, 1, 3, 2, 6, 3, 7, 4, 12, 5, 13, 6, 14, 7, 15, 8, 24, 9, 25, 10, 26, 11, 27, 12, 28, 13, 29, 14, 30, 15, 31, 16, 48, 17, 49, 18, 50, 19, 51, 20, 52, 21, 53, 22, 54, 23, 55, 24, 56, 25, 57, 26, 58, 27, 59, 28, 60, 29, 61, 30, 62, 31, 63, 32, 96, 33, 97, 34, 98, 35, 99, 36, 100 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,4 COMMENTS Iterating a(n), a(a(n)), ... eventually leads to 2^A000120(n) - 1. - Franklin T. Adams-Watters, Apr 09 2010 LINKS Indranil Ghosh, Table of n, a(n) for n = 0..20000 (first 1024 terms from T. D. Noe) FORMULA a(n) = A053645(n) * A000035(n) + A004526(n) = most significant bit(n) * least significant bit(n) + floor(n/2). a(0)=0, a(1)=1, a(2n) = n, a(2n+1) = 2a(n) + 2a(n+1) - n. - Ralf Stephan, Oct 24 2003 EXAMPLE For n = 35, 35_10 = 100011_2, which after rotating one binary place to the right becomes 110001. Now, 110001_2 = 49_10. So, a(35) = 49. - Indranil Ghosh, Jan 21 2017 MAPLE A038572 := proc(n)     convert(n, base, 2) ;     ListTools[Rotate](%, 1) ;     add( op(i, %)*2^(i-1), i=1..nops(%)) ; end proc: # R. J. Mathar, May 20 2016 MATHEMATICA Table[ FromDigits[ RotateRight[ IntegerDigits[n, 2]], 2], {n, 0, 80}] (* Robert G. Wilson v *) PROG (Haskell) a038572 0 = 0 a038572 n = a053645 n * m + n' where (n', m) = divMod n 2 -- Reinhard Zumkeller, Dec 03 2012 (PARI) a(n)=if(n<2, return(n)); my(d=binary(n)); fromdigits(concat(d[#d], d[1..#d-1]), 2) \\ Charles R Greathouse IV, Sep 02 2015 (Python) def A038572(n):     x = bin(n)[2:]     return int(x[-1]+x[:-1], 2) # Indranil Ghosh, Jan 21 2017 CROSSREFS Cf. A006257, A088146. Sequence in context: A071018 A144559 A155114 * A334667 A245676 A341516 Adjacent sequences:  A038569 A038570 A038571 * A038573 A038574 A038575 KEYWORD easy,base,nonn,nice AUTHOR STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 16 05:26 EDT 2021. Contains 343030 sequences. (Running on oeis4.)