Program fractii;
var
 p,q,n,s: longint;
 f: text;
Function cmmdc(a,b:longint):boolean;
 Begin
   while a<>b do
    if a>b then
     a:=a - b
    else b:=b - a;
   if a = 1 then
    cmmdc:=true
   else cmmdc:=false;
 End;

Begin
  assign(f,'fractii.in');
  reset(f);
  read(f,n);
  close(f);
  
  s:=0;
  for p:=1 to n do
   for q:=1 to n do
    if cmmdc(p,q) then
      inc(s);

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