program pc;
var i,j,n,a,b,i1,j1,r:longint;
q,w:text;
x:array[1..1000] of longint;
begin

assign(q,'d:\pair.in');
assign(w,'d:\pair.out');
reset(q);
rewrite(w);
read(q,n);
b:=0;
r:=0;
for i1:=1 to n do begin
                        x[i1]:=i1;
                        end;

if (i>=1) and (j<=n) then begin

                                for i:=1 to 1000000 do
                                for j:=1 to n do   begin
if (i=(x[i1+b])/i) and (i=(x[i1+b])/j) then r:=r+1;
                                end;
                                end;

write(w,r);
close(q);
close(w);
end.