var n,i,j:integer;f1,f2:text;s:longint;
Function ired(x,y:integer):boolean;
var z,c:integer;
begin
ired:=true;
For z:=2 to x do begin
If (x mod z=0)and(y mod z=0)then ired:=false;
end;
end;
begin
assign(f1,'fractii.in');reset(f1);
assign(f2,'fractii.out');rewrite(f2);
read(f1,n);
s:=0;
For i:=1 to n-1 do begin
For j:=i+1 to n do begin
If ired(i,j)=true then s:=s+1;
end;
end;
write(f2,2*s+1);
close(f1);
close(f2);
end.