{fractii ireductibile}
Program pascal;
var
 f:text;
 i,j,n,counter:0..1000000;
Function cmmdc(a,b:integer):boolean;
 var
  sem:boolean;
 Begin
  while a<>b do
   if a>b then
    a:=a-b
   else
    b:=b-a;
  sem:=false;
  if a=1 then
   sem:=true;
  cmmdc:=sem;
 END;

BEGIN
 assign(f,'fractii.in');
 reset(f);
 read(f,n);
 close(f);

 counter:=0;
 for i:=1 to n do
  for j:=1 to n do
    if cmmdc(i,j) then
     inc(counter);

 assign(f,'fractii.out');
 rewrite(f);
 write(f,counter);
 close(f);

END.