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,3

Links

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

Formula

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

Example

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

Mathematica

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

Prog

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

Crossrefs

Cf. A084471, A048678, A088698.

Sequence in context: A288202 A369368 A294032 * A039631 A355867 A287510

Adjacent sequences: A088694 A088695 A088696 * A088698 A088699 A088700

Keyword

nonn,easy,base

Author

Ralf Stephan, Oct 07 2003

Status

approved