program fractii;
var n,k,i,j,r,a,b:integer;f1,f2:text;
begin
assign(f1,'fractii.in');
reset(f1);
read(f1,n);
close(f1);
k:=0;
for i:=1 to n do
	for j:=1 to n do
  	begin
    repeat
    a:=i;
    b:=j ;
		r:=a mod b;
		a:=b;
		b:=r;
		until r=0;
    if a=1 then k:=k+1;
    end;
assign(f2,'fractii.out') ;
rewrite(f2);
write(f2,k);
close(f2);
end.