program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var n,i,j,k,z,q:integer;input,output:text;
begin
assign(input,'pair.in');
assign(output,'pair.out');
reset(input);
rewrite(output);
read(input,n);
close(input);
k:=0;
for i:=1 to n do  begin
for j:=1 to n do  begin
for z:=n downto 1 do
if (i mod z=0) and (j mod z=0) then
if z=i then
k:=k+1;
end;
end;
write(output,k);
close(output);
end.