program fractii;
 var n,a:byte;
 procedure citire;
 var f:text;
 begin
 assign(f,'fractii.in');
 reset(f);
 read(f,n);
 close(f);
 end;
 procedure fractie;
 var i,j,k:byte;
     gata:boolean;
 begin
 a:=0;
 for i:= 1 to n do
 for j:= 1 to n do
 if (i mod j<>0)or(j=1) then
 if (j mod i<>0)or(i=1)then
 inc(a);
 end;
 procedure afisare;
 var f:text;
 begin;
 assign(f,'fractii.out');
 rewrite(f);
 write(f,a);
 close(f);
 end;
 begin
 citire;
 fractie;
 afisare;
 end.