program frac;
var f,g:text;
    n,i,j,c,k,x:longint;
begin
 assign(f,'fractii.in');
 reset(f);
 assign(g,'fractii.out');
 rewrite(g);
 read(f,n);
 c:=0;
 for i:=1 to n do
  for j:=1 to n do
   begin
    for k:=1 to (i mod 2)+1 do
     if(i mod k=0)and(j mod k=0)then
      x:=k;
    if x<>1 then
     inc(c);
   end;
 write(g,n*n-c);
 close(f);
 close(g);
 end.