program celule;

label
 001;

var
 n, m, k, i, j: longint;
 a, p: array[1..15999] of longint;
 f: text;

begin
 assign (f, 'celule.in');
 reset (F);
 readln(f, n, m);
 close (f);
 if n < m then
  begin
   k:=n;
   n:=m;
   m:=k;
  end;
 p[1]:=2;
 k:=1;
 for i:= 3 to n do
  begin
   for j:= 1 to k do
    if i mod p[j] = 0 do
     goto 001;
   p[k+1]:=i;
   k:=k+1;
   001:;
  end;
 j:=0;
 for i:=1 to k do
  begin
   while n mod p[i]=0 do
    begin
     n:= n div p[i];
     b[i]:= b[i]+1;
    end;
   while m mod p[i]=0 do
    begin
     m:=m div p[i];
     b[i]:= b[i]-1;
    end;
   b[i]:= abs(b[i]);
   j:=j+b[i];
  end;
 assign(f, 'celule.out');
 rewrite(F);
 writeln(f, j);
 close(f);
end.







end.