program fractii;
var f1,f2:text; a,b,r,i,j,n,nf:longint;
begin
assign(f1,'fractii.in');
reset(f1);
readln(f1,n);
close(f1);
nf:=2*n - 1;
for i:=2 to n do
  for j:=2 to n do
  if (i/j<>1) and (i mod j<>0) and (j mod i<>0) then
  begin
    a:=i;
    b:=j;
    repeat
    r:=a mod b;
    a:=b;
    b:=r;
    until r=0;
    if a=1 then
      nf:=nf+1;
  end;
assign(f2,'fractii.out');
rewrite(f2);
writeln(f2,nf);
close(f2);
end.