program exgold;

var
  a:array[1..15] of longint;
  n,num,min,i,j,total,x,y,z:longint;
  can,used:array[1..1000] of boolean;
function test:longint;
  var
    x,i,j:longint;
    b:array[1..1000] of longint;
  begin
    test:=0;
    fillchar(can,sizeof(can),false);
    min:=1;
    for i:=1 to num do
      if a[i]<>0 then
        begin
          x:=test;
          for j:=1 to test do
            if (b[j]+a[i]<=n) and not can[b[j]+a[i]] then
              begin
                x:=x+1;
                b[x]:=b[j]+a[i];
                can[b[x]]:=true;
              end;
          if not can[a[i]] then
            begin
              x:=x+1;
              b[x]:=a[i];
              can[b[x]]:=true;
            end;
          test:=x;
          if test>=n then
            exit
          else
            while can[min]=true do
              min:=min+1;
        end;
  end;
begin
  fillchar(used,sizeof(used),false);
  readln(n);
  a[1]:=1;
  num:=1;
  repeat
    num:=num+1;
    a[num]:=a[num-1]*2;
    used[a[num-1]]:=true;
  until
    a[num]>n;
  num:=num-1;
  total:=1;
  for i:=3 to num do
    begin
      x:=a[i];
      for j:=1 to n do
        if not used[j] then
          begin
            a[i]:=j;
            if test=n then
              total:=total+1
            else if min<j then
              break;
          end;
      a[i]:=x;
    end;
  writeln(num,' ',total);
end.