A088697 - OEIS

%I #8 Dec 05 2023 15:40:43

%S 0,1,6,3,26,13,14,7,106,53,54,27,58,29,30,15,426,213,214,107,218,109,

%T 110,55,234,117,118,59,122,61,62,31,1706,853,854,427,858,429,430,215,

%U 874,437,438,219,442,221,222,111,938,469,470,235,474,237

%N Replace 0 with 10 in binary representation of n.

%H Rémy Sigrist, <a href="/A088697/b088697.txt">Table of n, a(n) for n = 0..8192</a>

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

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

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

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

%Y Cf. A084471, A048678, A088698.

%K nonn,easy,base

%O 0,3

%A _Ralf Stephan_, Oct 07 2003