program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  var
   n, i, j ,k, xork, summ: Integer;
   A: array of Integer;

begin
   Readln(n);
   SetLength(a, n);
   Summ := 0;
   for i := 0 to n-1 do
      a[i] := i;
   for i := 0 to n-1 do
      for j := 0 to n-1 do
      begin
         XorK := a[i] xor a[j];
         for k := 0 to n-1 do
            summ := summ + a[k] xor Xork;
      end;
   Writeln(Summ);
   Readln;
   Readln;
end.