var f,g:text;
    ct,i,j,n:longint;
function cmmdc(a,b:longint):longint;
var r:longint;
begin
repeat
r:=a mod b;
a:=b;
b:=r;
until r<=0 ;
cmmdc:=a;
end;

BEGIN
assign(f,'fractii.in');
reset(f);
read(f,n); ct:=0;
for i:=1 to n do
for j:=1 to n do
if cmmdc(i,j) = 1 then
ct:=ct+1;
assign(g,'fractii.out');
rewrite(g);
writeln(g,ct);
close(g);
END.