var x,y,n:longint;
procedure citire;
var f:text;
begin
        assign(f,'fractii.in');
        reset(f);
        read(f,n);
        close(f);
end;

function cmmdc:longint;
begin
        while x<>y do
        begin
                if x>y then
                        x:=x-y
                else
                        y:=y-x;
        end;
        cmmdc:=x;
end;

function aflare:longint;
var nr,i,j:longint;
begin
        nr:=0;
        for i:=1 to n do
        for j:=1 to n do
        begin
                x:=i;
                y:=j;
                if cmmdc=1 then
                        inc(nr);
        end;
        aflare:=nr;
end;

procedure afisare;
var g:text;
begin
        assign(g,'fractii.out');
        rewrite(g);
        write(g,aflare);
        close(g);
end;

begin
        citire;
        afisare;
end.