uses dos;
var a1,a2,a3,a4,b1,b2,b3,b4:word;
		n,i,j,p:longint;
		s:array[1..10000] of int64;
    f:text;
function gcd(a,b:longint):longint;
var g:longint;
begin
	while a > 0 do Begin
  	g := a;
    a := b Mod a;
    b := g;
  end;
  gcd := g;
end;
begin
	gettime(a1,a2,a3,a4);
	assign(f,'fractii.in');reset(f);
  read(f,n);
  assign(f,'fractii.out');rewrite(f);
  for i := 1 to n do
  	s[i] := n;
  for i := 1 to n do
    for j := 1 to n do
  	begin
    	p:=2;
      if gcd(i,j)=1 then
        while (i*p<=n) AND (j*p<=n) do
          begin
	          dec(s[i*p]);
            inc(p);
          end;
    end;
  j:=0;
  for i :=1 to n do
  	inc(j,s[i]);
  write(f,j);
  close(f);
  gettime(b1,b2,b3,b4);
  write(b1-a1,' ore ',b2-a2,' min ',b3-a3,' sec ',b4-a4,' sut');
end.