program fractii;
 var f: text;
     n,i,j,nr: longword;

 function cmmdc(a,b: longword): boolean;
 begin
   while a*b<>0 do
     if a>b then a:=a mod b
            else b:=b mod a;
   if a+b = 1 then cmmdc := true
   else cmmdc:=false;
 end;

 begin
   assign(f,'fractii.in'); reset(f);
     read(f,n);
   Close(f);

   nr:=0;
   for i:=1 to n do
     for j:=1 to n do begin

        if cmmdc(i,j) then inc(nr);

     end;

   assign(f,'fractii.out'); rewrite(f);
      write(f,nr);
   Close(f);


 end.