program fractii;
var n,k,i,j:longint;f1,f2:text;

function sir(a,b:integer):boolean;
var r:longint;
begin
repeat
	r:=a mod b;
	a:=b;
	b:=r;
until r=0;
if a=1 then sir:=true
	else sir:=false;
end;

begin
assign(f1,'fractii.in');
reset(f1);
read(f1,n);
close(f1);
k:=2*n-1;
for i:=2 to n do
	for j:=2 to n do
  	if sir(i,j)=true then k:=k+1;
assign(f2,'fractii.out') ;
rewrite(f2);
write(f2,k);
close(f2);
end.