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.
