var f,g:text;
p,q,nr,r,cmmdc,N:word;
begin
assign(f,'fractii.in');
assign(g,'fractii.out');
reset(f);
rewrite(g);
read(f,N);
nr:=0;
p:=1;
q:=1;
if (1<=N) and (n<=1000000) then
for p:=1 to n do
for q:=1 to n do begin
r:=1;
repeat
if (p mod r=0) and (q mod r=0) then cmmdc:=r;
inc(r);
until (r=p+1) or (r=q+1);
  if cmmdc=1 then nr:=nr+1;
end;
write(g,nr);
close(f);
close(g);
end.