{Gigle, intr-o zi cand isi facea temele la matematica, s-a apucat sa scrie pe
o foaie de hartie un sir de fractii ireductibile de forma P/Q cu i<=P, Q<=N,
unde N este un numar ales de el. De exemplu, pentru N=4 el a obtinut:
1/1 1/2 1/3 1/4 2/1 2/3 3/1 3/2 3/4 4/1 4/3
Fiind dat un numar natural n sa se determine cate fractii sunt in sirul
de fractii construit dupa regulile de mai sus}

program fractii;

type vector=array[1..100] of integer;


var k,n,i,j,x:integer;
    v:array[1..100] of integer;

begin
     readln (n);
     x:=0;
     for i:=1 to n do
         for j:=1 to n do
         if (i mod j<>0) or (j mod i<>0) then
                             x:=x+1;

     write (x);
     readln;
end.