var i,j:longint;
    n:longint;
    nr:longint;
    f,g:text;

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

function ireductibila(x,y:longint):boolean;
var i:longint;
    min:integer;
begin
    min:=x;
    if min>y then min:=y;

    ireductibila := (cmmdc(x,y)=1);
    {
    ireductibila:=true;
    for i:=2 to min do
        if (x mod i=0) and (y mod i=0) then begin
            ireductibila:=false;
            break;
        end;
    }
    
end;
    
begin
    assign(f,'fractii.in');
    assign(g,'fractii.out');
    reset(f);
    rewrite(g);

    read(f, n);

    nr:=0;
    for i:=1 to n do
    for j:=1 to n do
        if ireductibila(i,j) then
            inc(nr);
    
    write(g,nr);
    close(g);
end.