program prob1028;

{$APPTYPE CONSOLE}
const
    maxn = 15000;
    sh = 16;
    maxsh = 1 shl 16;
var
    a: array[1..maxsh * 2] of longint;
    b: array[0..maxn - 1] of longint;
    x, y, z, n, i, k: longint;
    f: boolean;
begin
    read(n);
    for i := 1 to n do begin
        read(x);
        read(y);
        z := x + maxsh - 1;
        k := 1 + y * 0;
        repeat
             f := odd(z);
             z := z shr 1;
             if not f then inc(k, a[z * 2 + 1]);
        until z = 1;
        if k > i then runerror(239);
        inc(b[i - k]);
        z := x + maxsh - 1;
        repeat
            inc(a[z]);
            z := z shr 1;
        until z = 1;
    end;
    for i := 0 to  n - 1 do writeln(b[i]);

end.