var
  a:array[1..10000] of integer;
  n,t1,t2,i,j,total:integer;



 begin
   read(n);total:=0;i:=2*n;
  repeat
  if i<=n then i:=2*i
  else i:=(i-n)*2-1;
  inc(total);
  until i=2*n;
 writeln(total);
 end.