var f,g:text;
    a,i,j:longint;
    ct:longint;

function cmmdc(m,n:longint):longint;
var r:longint;
begin

repeat

begin
r:=m mod n;
m:=n;
n:=r;
end;
cmmdc:=m;
until r<=0;

end;

BEGIN
assign(f,'fractii.in');
reset(f);
read(f,a);
close(f);
ct:=0;
for i:=1 to a
for j:=1 to a do
if (i=j) or cmmdc(i,j) = 1 then
ct:=ct+1;

assign(g,'fractii.out');
rewrite(g);
writeln(g,ct);
close(g);
END.