Program Fractii;
uses crt;
var i,j,x,y,n,k:longint;
    f1,f2:text;
Function CMMDC(i,j:longint): boolean;
var l:boolean;
 begin
  l:=false;
  while i<>j do
   if i>j then i:=i-j
          else j:=j-i;

  if (j=1) and (i=1) then l:=true;
  CMMDC:=l;
 end;

begin
assign(f1,'fractii.in'); reset(f1);
assign(f2,'fractii.out'); rewrite(f2);
readln(f1,n);

for i:=1 to n do
 for j:=1 to n do
   if CMMDC(i,j) then inc(k);

writeln(f2,k);
close(f1); close(f2);
end.