var f,g:text;
i,j,n,nr:longint;
function ok(i,j:integer):integer;
begin
if i<>j then
repeat
if i>j then i:=i-j
       else j:=j-i;
until i=j;
ok:=i;
end;
begin
 assign(f,'fractii.in');
  reset(f);
 assign(g,'fractii.out');
  rewrite(g);
 read(f,n);
 nr:=2*n-1;
 for i:= 2 to n do
  for j:= 2 to n do
   if i<>j then
    if ok(i,j)=1 then nr:=nr+1;
 write(g,nr);
 close(f);
 close(g);
end.