var n:longint;
    x:array[1..1000000] of boolean;
    s,i,j:longint;
    f,g:text;
function cmmdc(a,b:longint):longint;
 var r:longint;
 begin
  r:=a mod b;
  while b<>0 do begin
   r:=a mod b;
   a:=b;
   b:=r;;
  end;
  cmmdc:=a;
 end;
begin
 assign(f,'fractii2.in'); reset(f);
 assign(g,'fractii2.out'); rewrite(g);
 readln(f,n);
 s:=1;
 for i:=2 to n do
  for j:=1 to i do
   if cmmdc(i,j)=1 then
    inc(s,2);
 writeln(g,s);
 close(g); close(f);
end.