var f,g:text;
    n,i,j,s,x:longint;
    ok:boolean;
begin
assign (f,'fractii.in');
assign (g,'fractii.out');
reset (f);
rewrite (g);
read (f,n);
for i:=1 to n do begin
for j:=1 to n do begin
ok:=true;
if i>j then for x:=1 to j do if i mod x=0 then ok:=false
       else for x:=1 to i do if j mod x=0 then ok:=false;
end;
if ok then s:=s+1;
end;
write (g,s);
close (f);
close (g);
end.