var
x,y,i,o:longint;
begin
readln(x,y);
if y mod x<>0 then
begin
writeln(0);
halt;
end;
o:=0;
y:=y div x;
for i:=2 to (y-1) do
if y mod i=0 then
begin
inc(o);
while y mod i =0 do y:=y div i;
end;
writeln(o*(o-1)+2);
end.