program sada;
var i,j,n,nr:longint;
f,g:text;
function cmmdc (x,y:longint):boolean;
begin
while x<>y do if x>y then x:=x-y
                     else y:=y-x;
if (x=1) or (y=1) then cmmdc:=true
                  else cmmdc:=false;
end;
begin
assign (f,'fractii.in');
reset (f);
assign (g,'fractii.out');
rewrite (g);
readln (f,n);
nr:=n;
for i:=2 to n do
    for j:=1 to n do if cmmdc(i,j) then nr:=nr+1;
write (g,nr);
close (f);
close (g);
end.