program dasd;
var N,i,j,k,aux1,aux2:longint;
f:text;
begin
assign(f,'fractii.in');reset(f);
read(f,N);
close(f);
if N>4 then for i:=5 to N do
                             if i mod 2=0 then for j:=3 to i-3 do begin
                                                                  aux1:=i;
                                                                  aux2:=j;
                                                                  while aux1<>aux2 do if aux1>aux2 then aux1:=aux1-aux2
                                                                                                   else aux2:=aux2-aux1;
                                                                  if aux1=1 then inc(k);
                                                                  end
                                          else for j:=2 to i-2 do begin
                                                                  aux1:=i;
                                                                  aux2:=j;
                                                                  while aux1<>aux2 do if aux1>aux2 then aux1:=aux1-aux2
                                                                                                   else aux2:=aux2-aux1;
                                                                  if aux1=1 then inc(k);
                                                                  end;
assign(f,'fractii.out');rewrite(f);
if N>4 then write(f,2*k+4*n-5);
if N=1 then write(f,1);
if N=2 then write(f,3);
if N=3 then write(f,7);
if N=4 then write(f,11);
close(f);
end.