program fractii;
var i,j,a,b,n,r:longint;
    s:real;
    f,g:text;
begin
assign(f,'fractii.in');assign(g,'fractii.out');reset(f);rewrite(g);
{while not eof(f) do begin} readln(f,n);s:=0;
for i:=1 to n do begin
for j:=i+1 to n do begin
a:=j;b:=i;
r:=a mod b;
a:=b;
b:=r;
while r<>0 do begin
r:=a mod b;
a:=b;
b:=r;end;
if a=1 then s:=s+2;end;end;
s:=s+1;
writeln(g,s:0:0,' '{,trunc(s/i)});
close(f);close(g);end.