var n,nr,i,j,a,b,c:longint; f1,f2:text;
begin
assign(f1,'fractii.in');
reset(f1);
assign(f2,'fractii.out');
rewrite(f2);
read(f1,n);
for i:=2 to n do
if i mod 2=0 then begin
j:=1;
while j<n-1 do begin
j:=j+2;
a:=i;
b:=j;
while b>1 do begin
c:=a mod b;
a:=b;
b:=c;
end;
if b=1 then inc(nr);
end; end
else begin
for j:=2 to n do begin
a:=i;
b:=j;
while b>1 do begin
c:=a mod b;
a:=b;
b:=c;
end;
if b=1 then inc(nr);
end; end;
nr:=nr+2*n-1;
write(f2,nr);
close(f1);
close(f2);
end.