A088697 Replace 0 with 10 in binary representation of n.

0, 1, 6, 3, 26, 13, 14, 7, 106, 53, 54, 27, 58, 29, 30, 15, 426, 213, 214, 107, 218, 109, 110, 55, 234, 117, 118, 59, 122, 61, 62, 31, 1706, 853, 854, 427, 858, 429, 430, 215, 874, 437, 438, 219, 442, 221, 222, 111, 938, 469, 470, 235, 474, 237

Offset: 0

Author

Ralf Stephan, Oct 07 2003

Keywords

• nonn
• easy
• base

Examples

			n=9: 1001 -> 110101 = 53, so a(9) = 53.
		

Links

• Rémy Sigrist, Table of n, a(n) for n = 0..8192

Crossrefs

Cf. A084471, A048678, A088698.

Programs

Mathematica

Join[{0},Table[FromDigits[Flatten[IntegerDigits[n,2]/.(0->{1,0})],2],{n,80}]] (* Harvey P. Dale, Dec 05 2023 *)

PARI

a(n)=if(n<1,0,if(n%2==0,4*a(n/2)+2,2*a((n-1)/2)+1))

Formula

a(0)=0, a(2n) = 4a(n) + 2, a(2n+1) = 2a(n) + 1.