var   b,c,nr,cmmdc:qword;
      a,i,j:longint;
      k,l:text;
begin
assign(k,'fractii.in');
reset(k);
assign(l,'fractii.out');
rewrite(l);
read(k,a);

for i:=1 to a do
for j:=1 to i do begin
b:=i;
c:=j;
repeat
if b=c then begin break; cmmdc:=b; end;
if b>c then b:=b-c
        else c:=c-b;
until (b-c=0)or(c-b=0);
cmmdc:=b;
if cmmdc=1 then nr:=nr+1;
end;
write(l,nr);
close(k);
close(l);
end.