program test_number;

{$APPTYPE CONSOLE}

uses
  SysUtils,math;

var a,b,c:array[1..100] of integer;
t,i,n,k,j:integer;
begin
for i:=1 to 10 do
begin
assign(output, 'TRIANGLE'+inttostr(i)+'.in');
rewrite(output);
randomize;
if i<=2 then n:=1 else
if i<=4 then n:=3 else
if i<=6 then n:=random(10)+1 else
if i<=8 then n:=random(30)+10 else
if i<10 then n:=random(90)+10 ELSE
if i=10 then n:=100;
writeln(n);
for j:=1 to n do begin
a[i]:= random(100*n)+1;
b[i]:= random(100*n)+1;
c[i]:=round(sqrt(sqr(a[i])+sqr(b[i])));
writeln(a[i]);
writeln(b[i]);
writeln(c[i]);
end;
close(output);
//

{
assign(input, 'circle'+inttostr(i)+'.in');
reset(input);
assign(output, 'circle'+inttostr(i)+'.out');
rewrite(output);

for j:=1 to 1000 do b[j]:=0;
readln(n);
for j:=1 to n do begin
read(t);b[t]:=1;
end;
k:=0;
for j:=1 to n do begin
//write(b[j],' ');
k:=k+b[j];
end;
//writeln(k);
k:=0;
for j:=1 to n do
begin
if ((b[j]>0)and(j mod 2=1))then k:=k+1;
if ((b[j]>0) and  (j mod 2=0)and (b[j div 2]=0))
then begin k:=k+1;end;
if ((b[j]>0) and  (j mod 2=0)and (b[j div 2]>0))
then b[j]:=0;

end;
writeln(k);
close(input);
close(output);
}
end;

end.