{ problema fractii -infoarena.ro }

program fractii;

var n,k,sol,i:longint;
    f,g:text;

function cmmdc(i,k:longint):longint;
var c:longint;
begin

  if i=k then c:=i
  else  while i<>k do
                     begin
                      if i>k then i:=i-k
                          else
                      k:=k-i;
                     end;
               c:=i;
    cmmdc:=c;
end;
{
function divizibil(i,k:longint):boolean;
var divz:boolean;
   i1:longint;
begin
       divz:=false;
   for i1:=2 to i div 2 do
     if (i mod i1=0)and(k mod i1=0) then begin divz:=true;
                                                break;
                                          end;
        divizibil:=divz;
end;}

begin
    assign(f,'fractii.in');  reset(f);
    readln(f,n);
      close(f);

    if n=1 then sol:=1
    else if n=2 then sol:=3

    else

   for i:=2 to n do
     for k:=1 to n do
     if k mod i<>0 then if cmmdc(i,k)=1 then inc(sol);
        sol:=sol+n;

    assign(g,'fractii.out');  rewrite(g);
    writeln(g,sol);
close(g);

end.