var f,g:text;
i,n,j,k:longint;
ok:boolean;
begin
assign(f,'fractii.in');
reset(f);
assign(g,'fractii.out');
rewrite(g);
readln(f,n);

         k:=0;


for i:=1 to n do
for j:=1 to n do begin

ok:=true;
if( j=1)or (i=1) then begin k:=k+1;
ok:=false;end;
if( (i mod j=0)or(j mod i=0)) and(i<>1) then
ok:=false;

if ok then  k:=k+1;


end;




write(k);
close(f);
close(g);
readln;
end.