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

function gcd(a,b:longint):longint;
begin
if (b=0)then gcd:=a
             else gcd:=gcd(b,a mod b);
end;

begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
read(f,n);
s:=2*n-1;

for i:=n downto 3 do begin k:=0;
for j:=2 to i-1 do
if gcd(j,i)>1 then inc(k);
s:=s+2*(i-2-k); end;

write(g,s);
close(f);
close(g);
end.