login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A153733 Remove all trailing ones in binary representation of n. 5
0, 0, 2, 0, 4, 2, 6, 0, 8, 4, 10, 2, 12, 6, 14, 0, 16, 8, 18, 4, 20, 10, 22, 2, 24, 12, 26, 6, 28, 14, 30, 0, 32, 16, 34, 8, 36, 18, 38, 4, 40, 20, 42, 10, 44, 22, 46, 2, 48, 24, 50, 12, 52, 26, 54, 6, 56, 28, 58, 14, 60, 30, 62, 0, 64, 32, 66, 16, 68, 34, 70, 8, 72, 36, 74, 18, 76, 38 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

COMMENTS

a(n)/2 = A025480(n).

LINKS

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Index entries for sequences related to binary expansion of n

FORMULA

a(n) = if n mod 2 = 0 then n else a((n-1)/2).

MATHEMATICA

Table[If[EvenQ[n], n, FromDigits[Flatten[Most[Split[IntegerDigits[n, 2]]]], 2]], {n, 0, 100}] (* Harvey P. Dale, Feb 15 2014 *)

PROG

(Haskell)

a153733 n = if b == 0 then n else a153733 n'  where (n', b) = divMod n 2

-- Reinhard Zumkeller, Jul 22 2014

CROSSREFS

Cf. A000265, A007814, A007088.

Cf. A163575.

Sequence in context: A196606 A222303 A097945 * A083218 A203908 A139716

Adjacent sequences:  A153730 A153731 A153732 * A153734 A153735 A153736

KEYWORD

nonn

AUTHOR

Reinhard Zumkeller, Dec 31 2008

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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified February 17 21:12 EST 2018. Contains 299297 sequences. (Running on oeis4.)