Program cascaval_e;
uses crt;
Var o,n:longint;
s:int64;

Function cmmdc(a,b:longint):longint;
Var r:longint;
Begin
r:=1;
while r<>0 do
        begin
        r:=a mod b; a:=b; b:=r; end;
cmmdc:=a;
end;

Function indiv(a:longint):longint;
Var i:longint;
Begin
i:=0; indiv:=0;
repeat inc(i);
       if cmmdc(a,i)=1 then inc(indiv);
until i=n;
end;

Begin
clrscr;
write('n= '); readln(n); s:=0;
for o:=1 to n do
        begin
        s:=s+indiv(o);
        write(o);
        if o=500000 then
        ;
        end;
write(s);
readln;
end.