program fractii;
var f,g:text;
    i,n,j,x,y,cont:longint;
begin
assign(f,'fractii.in');
assign(g,'fractii.out');
reset(f);
rewrite(g);
read(f,n);
for i:=1 to n do
  for j:=1 to n do
    begin
    x:=i;
    y:=j;
    while(x<>y)Do
      if(x>y)then x:=x-y
             else y:=y-x;
    if(x=1)then cont:=cont+1;
    end;
write(g,cont);
close(f);
close(g);
end.