var n:int64;
procedure citire;
var f:text;
begin
    assign(f,'fractii.in');
    reset(f);
    readln(f,n);
    close(f);
end;

function diviz(a, b : int64) : int64;
begin
  if (b = 0) then diviz := a
  else diviz := diviz(b, a mod b);
end;

function rez(n:int64):int64;
var i,j,k:integer;
begin
    k:=0;
    for i:=1 to n do
        for j:=1 to n do
            begin
                if diviz(i,j)=1 then k:=k+1;
            end;
rez:=k;
end;

procedure afis;
var f:text;
begin
    assign(f,'fractii.out');
    rewrite(f);
    writeln(f,rez(n));
    close(f);
end;
begin
citire;
afis;
end.