var n:integer;
var res:Real;
begin

res := 1;
n := 2;

while(res - Ln(2) > 0.0001 ) do
  begin
  res := res + (Power(-1, n-1) / n);
  n := n+1;
  end;
  writeln(n);
end.