program fractii;

label
 000;

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

begin
 s:=0;
 assign(f, 'fractii.in');
 reset(f);
 readln(f, n);close(F);
 for i:= 1 to n do
  for j:= i to n do
   begin
    p:= 0;
    for k:= 2 to i do
     if i mod k = 0 then
      if j mod k = 0 then
       begin
        p:= 1   ;
        goto 000;
       end;
    000:;
    if p = 0 then
     s:= s +2;
   end;
 assign(F, 'fractii.out');
 rewrite(F);
 writeln(f, s);
close(F);
end.