program fractii;
type cus=1..1000000;
     cos=^cus;
var
f,g:text;
i,p,q,n:cos;

function diva (a,b:cos):boolean;
var ok:boolean;
begin
while a^<>b^ do
if a^>b^ then a^:=a^-b^
       else b^:=b^-a^;
if a^=1 then ok:=true
       else ok:=false;
diva:=ok;
end;

begin
assign (f, 'fractii.in'); reset (f);
assign (g,'fractii.out'); rewrite (g);
readln (f,n^);
p^:=1;
while p^<=n^ do begin
q^:=1;
while q^<=n^ do begin
    if diva (p,q) then i^:=i^+1;
    q^:=q^+1;
    end;
p^:=p^+1;
end;
write (g,i^);
close (g);
end.