var userfile:text;
n,i,j,k:longint;
function cmmdc(a,b:longint):boolean;
begin
while a<>b do
        begin
        if a>b then a:=a-b
                else b:=b-a;
        end;
if a<>1 then cmmdc:=false
else cmmdc:=true;
end;
begin
assign(userfile, 'fractii.in');
reset(userfile);
readln(userfile, n);
close(userfile);
writeln(n);
k:=0;
i:=1;
while i<=n do
        begin
        if i mod 2=0 then
                begin
                j:=1;
                while j<=n do
                        begin
                        if cmmdc(i,j) then k:=k+1;
                        j:=j+2;
                        end;
                end
        else begin
                j:=1;
                while j<=n do
                        begin
                        if cmmdc(i,j) then k:=k+1;
                        j:=j+1;
                        end;
        end;
        i:=i+1;
        end;
assign(userfile, 'fractii.out');
rewrite(userfile);
writeln(userfile, k);
close(userfile);
end.