program Project1;

{$APPTYPE CONSOLE}
var
f:text;
a,b, n,m:longint;
function nsd(l,r:longint):longint;
begin
if l=0 then nsd:=r else nsd(r mod l, l);
end;
begin
assign(f, 'pair.in');
reset(f);
read(f, a);
close(f);
n:=0;
m:=1;
while m<=a do
  begin
    b:=m;
    while b<=a do
    begin
      if nsd(m, b)=m then inc(n);
      inc(b);
    end;
    inc(m);
  end;
assign(f, 'pair.out');
rewrite(f);
writeln(f, n);
close(f);
end.