var
  n, i, tmp: longint;
  a: array of longint;

begin
  readln(n);
  if n > 1 then
    setlength(a, trunc(sqrt(n * 2 + 2.25) - 1.5))
  else
    setlength(a, 1);
  tmp := 0;
  for i := 0 to length(a) - 2 do
    begin
      a[i] := i + 2;
      inc(tmp, a[i])
    end;
  a[length(a) - 1] := n - tmp;

  if length(a) > 1 then
    while a[length(a) - 1] - a[length(a) - 2] > 2 do
      for i := length(a) - 1 downto 1 do
        begin
          tmp := (a[i] - 1 - a[i - 1]) div 2;
          if tmp > 0 then
            begin
              dec(a[i], tmp);
              inc(a[i - 1], tmp)
            end
        end;

  for i in a do
    write(i, ' ');
  writeln
end.