program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var i,n,j,l: integer;

function nsd(r,s: integer): integer;
var i,j,maxrez,k,l: integer; maxr,maxs: array [1..10000] of integer;
begin
i:=0; j:=0; l:=0;
for i:=1 to r do
 if (r mod i = 0) then
 begin inc(l);maxr[l]:=i; end;
k:=0;
for j:=1 to s do if (s mod j = 0) then
begin inc(k);maxs[k]:=j; end;
maxrez:=0;
for i:=1 to l do
for j:=1 to k do
 if (maxr[i]=maxs[j]) and (maxr[i]>maxrez) then maxrez:=maxr[i];
nsd:=maxrez;

end;


begin
  { TODO -oUser -cConsole Main : Insert code here }
assign(input,'pair.in');
reset(input);
readln(n);
assign(output,'pair.out');
rewrite(output);
for i:=1 to n do
  for j:=1 to n do
    if i=nsd(i,j) then inc(l);
writeln(l);
close(input);
close(output);
end.