var f,g:text;
i,j,n,nr:integer;
function ok(i,j:integer):boolean;
begin
ok:=true;
if i<>j then
repeat
if i>j then i:=i-j
       else j:=j-i;
until i=j;
if i<>1 then ok:=false;
end;
begin
assign(f,'fractii.in');
reset(f);
assign(g,'fractii.out');
rewrite(g);
read(f,n);
nr:=0;
for i:= 1 to n do
for j:= 1 to n do
if ok(i,j) then nr:=nr+1;
write(g,nr);
close(f);
close(g);
end.