var f,g:text;
n,nr,i,j,auxi,auxj:longint;
begin
assign(f,'fractii.in');
reset(f);
read(f,n);
close(f);
nr:=0;
while i<n do
begin
    inc(i);
    auxi:=i;
    j:=0;
   while j<n do
    begin
         inc(j);
         auxj:=j;
          while auxi<>auxj do
          begin
            if auxi>auxj then
             auxi:=auxi-auxj
            else
             auxj:=auxj-auxi

         end;
        if (auxi=1)or (auxj=1) then
            inc(nr);
    end;
 end;
assign(g,'fractii.out');
rewrite(g);
write(g,nr);
close(g);
end.