program Project1;

var
  m, n, a, b, c: QWord;
begin
  assign(input, 'input.txt');
  assign(output,'output.txt');
  reset(input);
  rewrite(output);
  Read(m, n);
  a := 1;
  while (a * a <= m) do
  begin
    if (m mod a = 0) then
    begin
      b := 1;
      while (b * b <= m div a) do
      begin
        if (m mod b = 0) then
          c := m div (a * b);
        // writeln(a,' ', b,' ',c);
        if (a * (b + 1) * (c + 1) + (a + 1) * b * (c + 1) + (a + 1) * (b + 1) * c = n) then
        begin
          Write('1');

          exit;
        end;
        b := b + 1;

      end;
    end;

    a := a + 1;
  end;
  Write('0');


end.