type vector=array [1..2000] of real;
function caut(x:real;a:vector;n:integer):boolean;
var i:integer;
begin
caut:=false;
for i:=1 to n do
if a[i]=x then begin caut:=true;break end;
end;
function euclid(x,y:integer):integer;
begin
if y=0 then euclid:=x
else euclid:=euclid(y,x mod y);
end;
var i,j,n,d,c:integer;
f,g:text;
a:vector;
begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
while not eoln(f) do begin
read(f,n);
c:=0;  d:=0;
for i:=1 to n do
for j:=1 to n do
if caut(i/j,a,c)=false then begin
inc(d);
inc(c);
a[c]:=i/j;end;
writeln(g,d);
readln(f);
end;
close(g);
end.