var f,g:text;
    nr,n,i,j:longint;
function prime(x,y:longint):boolean;
begin
while x<>y do
      if x> y then
         x:=x-y
               else
         y:=y-x;
if x=1 then
   prime :=true
        else
        prime:= false;
end;
begin
assign(f,'fractii.in'); reset(f);
assign(g,'fractii.out');rewrite(g);
readln(f,n); nr:=0;
for i:=1 to n do
    for j:=1 to n do
        if (prime(i,j)) then
           inc(nr);
writeln(g,nr);
close(g);close(f);
end.