program p_003;{fractii}
var n,p,q,r,a,b:longint;
    nr:int64;
begin
  assign(input,'fractii.in'); reset(input);
  assign(output,'fractii.out'); rewrite(output);
  readln(n);
  nr:=n;
  for p:=2 to n do begin
    nr:=nr+1;
    for q:=2 to n do
      if ((p mod 2<>0) or (q mod 2<>0)) and (p<>q) then
        if (abs(p-q)=1) or (abs(p-q)=2) then nr:=nr+1
          else begin
            a:=p; b:=q;
            r:=a mod b;
            while r<>0 do begin
              a:=b; b:=r; r:=a mod b; end;
            if b=1 then nr:=nr+1;
          end;
  end;
  write(nr);
  close(input); close(output);
end.