label 1;
var f,g:text;i,j,num,n,num1:longint;
procedure inpartire(j,i:longint);
var z:longint;
begin

for z:=2 to i do
if (j mod z=0)and(i mod z=0) then inc(num);
if num=0 then inc(num1);num:=0;
end;
begin
assign(f,'fractii.in');
assign(g,'fractii.out');
reset(f);
rewrite(g);num1:=0;
read(f,n);num:=0;
for i:=1 to n do
for j:=1 to n do begin
if i>j then begin
if i mod j=0 then goto 1;end else
if j mod i=0 then goto 1;
inpartire(j,i);1:end;
writeln(g,num1);
close(f);
close(g);
end.