var n,i,e,c:integer;
fin,fout:textfile;
function cmmdc(a:integer; b:integer):integer;
var i,n:integer;
begin
for i := 1 to a do begin
    if (a mod i =0) and (b mod i = 0) then 
    n:=i;
   end;
cmmdc:= n;
 
end;


begin
assign( fin,'fractii.in');
reset (fin);
assign (fout,'fractii.out');
rewrite(fout);
read(fin,n);
for i:= 1 to n do begin
   for e:= 1 to n do begin
   if cmmdc(i,e) = 1 then inc(c);
   end;
   end;
writeln(fout,c);
close(fin);
close(fout);


end.