var f,g:text;
i,n,j,k:longint;
ok:boolean;

function cmmdc(i,j:longint):integer;
begin

while i<>j do
if i>j then i:=i-j
else
j:=j-i;

cmmdc:=i;
end;
begin
assign(f,'fractii.in');
reset(f);
assign(g,'fractii.out');
rewrite(g);
readln(f,n);

         k:=n;


for i:=2 to n do
for j:=1 to n do



if cmmdc(i,j)=1 then  k:=k+1;






write(g,k);
close(f);
close(g);
readln;
end.