program fractiii;
type numar=0..1000000;
var i,j,n,x,c,p: numar;
function prim(q,w: numar):boolean;
begin
while q<>w do if q>w then dec(q,w) else dec(w,q);
prim:=(q=1);
end;
begin
assign(input,'fractii.in'); reset(input);
read(n);
c:=0;
for i:= 1 to n do
for j:= 1 to n do
if prim(i,j) then inc(c);
assign(output,'fractii.out'); rewrite(output); close(input);
write(c);
close(output);
end.