program fractii;
var
a,p,q,n:longint;
f,g:text;
function cmmdc (p,q:longint):boolean;
begin
cmmdc:=true;
while p<>q do
      if p>q then p:=p-q
             else q:=q-p;
if p=1 then cmmdc:=false;
end;

begin
assign (f,'fractii.in'); reset (f);
assign (g,'fractii.out'); rewrite (g);
readln (f,n);
a:=0;
for p:=1 to n do
    for q:=1 to n do
        if cmmdc(p,q)=false then a:=a+1;
write (g,a);
end.