var a,b,c,d,n,i,p,count,count2,last:longint;
este:boolean;
var x:array[1..2000003] of boolean;
fin,fout:textfile;
begin
assign(fin,'ciur.in');
reset(fin);
assign(fout,'ciur.out');
rewrite(fout);
readln(fin,n);
p:=2;
i:=2;
x[1]:=True;
x[2]:=False;
while n<>p do begin
    while i<n do begin
    i:=i+p;
    if i<> n then begin
        x[i]:=True;
        inc(c);
        end;
    end;
    for i:=p to n do begin
        if (i>p) and (x[i]=False) then begin
            last:=p;
            p:=i;
            break;
            end;
        end;
        i:=p;
        end;
for i:=1 to n do 
   if n mod i=0 then 
      inc(a);  
   if a=2 then c:=c+1  
   else c:=c-1;
writeln(fout,n-c);
close(fin);
close(fout);
end.