Program Fractii;
var 
  n,i,j,count:integer;
  fname1,fname2:text;
function gcd(i:integer;j:integer):integer;
var t:integer;
begin

  while j<>0 do
  begin
    t:=j;
    j:=i mod j;
    i:=t;
  end;
  gcd:=i;
end;

begin
  Assign(fname1,'fractii.in');
  reset(fname1);
  readln(fname1,n);
  for i:=1 to n do
  begin
  for j:=1 to n do
  begin
    if gcd(i,j)=1 then count:=count+1;
   end;
   end;
  Assign(fname2,'fractii.out');
  Rewrite(fname2);
  writeln(fname2,count);
  close(fname2);
end.