program fractii;
var i,j,n,s:longint;
    g,f:text;
function cmmdc(i,j:longint):longint;
var x,y:longint;
begin
x:=i;
y:=j;
while x<>y do
if x>y then
x:=x-y
else
y:=y-x;
cmmdc:=x;
end;
begin
assign(f,'fractii.in');
assign(g,'fractii.out');
reset(f);
rewrite(g);
readln(f,n);
for i:=1 to n do
for j:=i to n do
if cmmdc(i,j)=1 then
s:=s+1;
s:=s*2-1;
writeln(g,s);
close(f);
close(g);
end.