var a:array[1..1000000] of longint;

i,j,k,n,tam,dem:longint;

f1,f2:text;

const fi='CHUOTTUI.INP';

fo='CHUOTTUI.OUT';

function kt:boolean;

begin

         j:=i+1;

         while a[i]<a[j]*2 do inc(j);

         if j>n then exit(false);

         exit(true);

end;

begin

         assign(f1,fi);reset(f1);

         assign(f2,fo);rewrite(f2);

         repeat

                  readln(f1,n);

         until (0<n) and (n<=1000000);

         for i:=1 to n do readln(f1,a[i]);

         for i:=1 to n-1 do

                  for j:=i+1 to n do

                           if a[i]<a[j] then

                                    begin

                                             tam:=a[i];

                                             a[i]:=a[j];

                                             a[j]:=tam;

                                    end;

         i:=1;

         while i<=n do

                  begin

                           if kt=true then

                                    begin

                                             for k:=j to n-1 do a[k]:=a[k+1];

                                             for k:=i to n-2 do a[k]:=a[k+1];

                                             n:=n-2;

                                             inc(dem);

                                    end

                           else inc(i);

                  end;

         writeln(f2,n+dem);

         close(f1);close(f2);

end.