var a,b:text;
    i,j,n,x,nr,y:longint;
begin
assign(a,'fractii.in');
reset(a);
assign(b,'fractii.out');
rewrite(b);
read(a,n);nr:=4;
for i:=4 to n do begin
for j:=1 to n do begin
x:=i;y:=j;
while x<>y do
if x>y then x:=x-y
       else y:=y-x;
if (x=1) then nr:=nr+1;
end;
end;
if n=1 then nr:=1;
if n=2 then nr:=2;
if n=3 then nr:=4;
write(b,nr);
close(a);
close(b);
end.