program fractii;
var f,g:text;i,j,n,nr,x,y,r:longint;
begin
assign (f,'fractii.in'); reset (f);
assign (g,'fractii.out'); rewrite (g);
while not eof(f) do
begin
readln (f,n);
nr:=n;
for i:=2 to n do
for j:=1 to n do
begin
x:=i; y:=j; r:=x mod y;
while r<>0  do
begin
x:=y;
y:=r;
r:=x mod y;
end;
if y=1 then nr:=nr+1;
end;
writeln (g,nr);
end;
close (f);
close (g);
end.