var n, k: integer;

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

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

procedure rezolvare;
var p, q, i, j: integer;
begin
    p := 1; q := 1; {p / q} k := 1;
    for i := 0 to n - 1 do
        for j := 0 to n - 1 do
        begin
            if p+i <> q+j then
            begin
           if  (gcd(p + i, q + j) = 1) then k := k + 1; end;
        end;
end;

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

begin
   // readln(n);
   citire;
    rezolvare;
    //writeln(k);
    afis;
end.