program fractii;
var p,q,c,n,a,b,r : longint;
    f,g:text;

 begin
  assign(f,'fractii.in');
  reset(f);
  readln(f,n);
  close(f);
  assign(g,'fractii.out');
  rewrite(g);
  c:=n;
  for p:=2 to n do
  begin
  for q:=1 to n do
  begin
  a:=p;
  b:=q;
  while b>0 do
  begin
  r:=a mod b;
  a:=b;
  b:=r;
  end;
  if (a=1) or ((p=1) or (q=1)) then
  c:=c+1;
  end;
  q:=1;
  end;
  writeln(g,c);
  close(g);
 end.