var f : text;
    d, k, l, m, n : integer;

begin
    assign(f, 'skaitm.in');
    reset(f);
    read(f, d, k);
    close(f);

    n := 0; { n - kiek kartų parašytas skaitmuo d }
    l := 0; { l - rašomasis skaičius }
    while n < k do begin
        inc(l);
        m := l; { suskaičiuojam, kiek skaičiuje m = l skaitmenų d }
        while m > 0 do begin
            if m mod 10 = d then inc(n);
            m := m div 10;
        end;
    end;

    assign(f, 'skaitm.out');
    rewrite(f);
    writeln(f, l);
    close(f);
end.
