var f,g:text;
    n,i,j,s:longint;


function cmmdc(a,b:longint):integer;
begin
while a<>b do
if a>b then a:=a-b
       else b:=b-a;
cmmdc:=a;
end;
begin
assign (f,'fractii.in');
assign (g,'fractii.out');
reset (f);
rewrite (g);
read (f,n);
for i:=1 to n do
for j:=1 to n do
if cmmdc (i,j)=1 then s:=s+1;
write (g,s);
close (f);
close (g);
end.