var i,j,n,a,b,min: longint;
    f,g:text;
    ok:boolean;
begin
assign(f,'fractii.in');
assign(g,'fractii.out');
reset(f);
rewrite(g);
read(f,n);
a:=0;
for i:=1 to n do
for j:=1 to n do begin
min:=i;
if min>j then min:=j;

ok:=true;
for b:=2 to min do
if (i mod b=0) and (j mod b=0) then begin
ok:=false;
break;
end;

if ok=true then a:=a+1;
end;
writeln(g,a);
close(g);
end.