var f,g:text;
    x,n,io,sid,i,s,p:longint;

  function nrdiv(x:longint):longint;
 begin
  io:=x;
  sid:=0;
 for i:=1to x do
  begin
  for p:=2 to (i div 2) do
 if ((x mod p=0) and (i mod p=0)) then sid:=sid+1;
 end;
 nrdiv:=sid+1;
 end;

 begin
assign(f,'fractii.in');
assign(g,'fractii.out');
reset(f);
rewrite(g);
read(f,n);
s:=0;
 for i:=1 to n do
s:=s+nrdiv(i);
 write(g,n*n-s);
close(f);
close(g);
end.