{}
program fractii;
uses crt;

function cmmdc(a:word;b:word):word;

begin
repeat
 if a>b then a:=a-b;
 if b>a then b:=b-a
until a=b
end;

var i,j,contor,n:word;
    f,g:text;

begin
clrscr;
assign(f,'fractii.in');
assign(g,'fractii.out');
reset(f);
rewrite(g);

contor:=0;

write('Dati n: ');readln(f,n);

for i:=1 to n do
 for j:=1 to n do
  if cmmdc(i,j)=1 then inc(contor);

write(g,contor);
close(f);
close(g);



readln;
end.