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