program dasda;
var n,i,j:longint;
f,g:text;
nr:integer;
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 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.