var

a:array [1..1000] of integer;

n, i, xi, maxc, maxp:integer;

begin

    readln(n,xi);

    fillchar(a,n,0);

    inc(a[xi]);

    maxp := xi;

    maxc := 1;

 

    for i := 2 to n do

    begin

        xi := (xi * 37 + 33031) mod n + 1;

        inc(a[xi]);

        if a[xi] > maxc then

        begin

            maxc := a[xi];

            maxp := xi;

        end

        else

        if a[xi] = maxc then

        begin

        if xi<maxp then

           maxp:=xi;

        end;

    end;    

    writeln( maxp);

 

end.


/**************************************************************
	Problem: 1557
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/