Program fractii; uses crt;
var i, i1, j, n, k:longint;
    a, b:boolean;
    m:int64;
    f, g:text;
begin clrscr;

assign(f, 'fractii.in');
assign(g, 'fractii.out');
reset(f); rewrite(g);
readln(f, n);
m:=2*n-1; k:=0;
For i:=2 to n do
   For j:=2 to n do begin For i1:=1 to i do
                             if i mod i1=0 then inc(k);
                          if k=2 then a:=true
                                 else a:=false;
                          k:=0;
                          For i1:=1 to j do
                             if j mod i1=0 then inc(k);
                          if k=2 then b:=true
                                 else b:=false;
                          k:=0;
                          if (a or b) and (i<>j) then inc(m);
                    end;
writeln(g, m);
close(f); close(g);
end.