Program fractii;
var n,nr,i,j:integer;
    f,g:text;
function sunt(a,b:integer):boolean;
var min:integer;
    jorj:boolean;
Begin
if a>b then min:=b
       else min:=a;
jorj:=false;
while not(jorj) do begin
      if (a mod min =0)and(b mod min=0) then jorj:=true;
      min:=min-1;
      end;
min:=min+1;
if min=1 then sunt:=false
   else sunt:=true;
End;
Begin
assign(f, 'fractii.in');
assign(g, 'fractii.out');
reset(f);
rewrite(g);
readln(f,n);
nr:=0;
for i:=1 to n do
    for j:=1 to n do
        if not(sunt(i,j)) then nr:=nr+1;
writeln(g,nr);
close(f);
close(g);
End.