program kaprekar;

var
    B, K: integer;
    f: text;

function sortDigits(n: integer; desc: boolean): integer;
var
    arr: array[0..9] of integer;
    i, j, temp: integer;
    res: string;
begin
    for i := 0 to B - 1 do arr[i] := 0;

    while n <> 0 do
    begin
        inc(arr[n mod B]);
        n := n div B;
    end;

    res := '';
    if desc then
    begin
        for i := B - 1 downto 0 do
            for j := 1 to arr[i] do
                res := res + chr(48 + i);
    end
    else
    begin
        for i := 0 to B - 1 do
            for j := 1 to arr[i] do
                res := res + chr(48 + i);
    end;
    sortDigits := StrToInt(res);
end;

function isKaprekar(x: integer): boolean;
begin
    isKaprekar := x = sortDigits(x, true) - sortDigits(x, false);
end;

procedure findKaprekar;
var
    i, max, min, count: integer;
begin
    min := 1;
    for i := 2 to K do min := min * B + 1;
    max := min * B - 1;

    for i := min to max do
    begin
        count := 0;
        max := i;
        while max <> 0 do
        begin
            inc(count);
            max := max div B;
        end;

        if count = K then
            if isKaprekar(i) then
            begin
                writeln(f, i);
                exit;
            end;
    end;
    writeln(f, 0);
end;

begin
    assign(f, 'KAPREKAR.INP');
    reset(f);
    readln(f, B, K);
    close(f);

    assign(f, 'KAPREKAR.OUT');
    rewrite(f);
    findKaprekar;
    close(f);
end.