A089312 Write n in binary; a(n) = number represented by rightmost block of 1's.

0, 1, 1, 3, 1, 1, 3, 7, 1, 1, 1, 3, 3, 1, 7, 15, 1, 1, 1, 3, 1, 1, 3, 7, 3, 1, 1, 3, 7, 1, 15, 31, 1, 1, 1, 3, 1, 1, 3, 7, 1, 1, 1, 3, 3, 1, 7, 15, 3, 1, 1, 3, 1, 1, 3, 7, 7, 1, 1, 3, 15, 1, 31, 63, 1, 1, 1, 3, 1, 1, 3, 7, 1, 1, 1, 3, 3, 1, 7, 15, 1, 1, 1, 3, 1, 1, 3, 7, 3, 1, 1, 3, 7, 1, 15, 31, 3, 1, 1, 3, 1

Offset: 0

Author

N. J. A. Sloane, Dec 22 2003

Keywords

• nonn
• base

Examples

			13 = 1101 so a(13) = 1.
		

Crossrefs

Cf. A089309-A089313.

a(2n+1) = A038712(n+1).

Programs

Mathematica

rb1[n_]:=Module[{id=Split[IntegerDigits[n,2]]},If[MemberQ[ Last[ id],0], FromDigits[ id[[-2]],2], FromDigits[id[[-1]],2]]]; Join[{0}, Array[ rb1,100]] (* Harvey P. Dale, Dec 18 2015 *)

Extensions

More terms from Vladeta Jovovic, Jan 20 2004