program swastika;
var n,i,j,fractii,cmmdc,p,q:integer;
    f,g:text;
    prime:boolean;
 begin
  assign(f,'fractii.in'); reset(f);
  assign(g,'fractii.out'); rewrite(g);
  while not eof(f) do
   begin
    readln(f,n); fractii:=1; prime:=false;
    for p:=1 to n do
     for q:=2 to n do
      begin
       i:=p; j:=q;
       while (i<>j) do
        begin
         if (i>j) then
          begin
           i:=i-j; cmmdc:=i;
          end
         else
         if (j>i) then
          begin
           j:=j-i; cmmdc:=j;
          end;
        end;
        if cmmdc=1 then prime:=true else prime:=false;
        if prime=true then fractii:=fractii+1;
      end;
    writeln(g,fractii);
   end;
  close(f); close(g);
 end.