program PbFractii;
var f,g:text; n,i,j,nr,h,k:integer; ok:boolean;
begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
read(f,n);
for i:=1 to n do

 for j:=1 to n do
  begin
  ok:=true;
  if (i=1) or (j=1) then nr:=nr+1;

  for k:=1 to i-1 do
   if i mod k=0 then h:=k;

  if (h=1)or (i=j) then ok:=false;

  if ok=true then  nr:=nr+1;
 end;
write(g,nr);
close(f);close(g);
end.