program base;
var s:array[1..10000] of integer;
    top,bot,min,max,i,j,can,tot:longint;

procedure change(x,num:longint);
var long,n,k:longint;
    b:boolean;
begin
 n:=num;
 b:=true;
 fillchar(s,sizeof(s),0);
 long:=0;
 while n>0 do
  begin
   inc(long);
   s[long]:=n mod x;
   n:=n div x;
  end;
 for k:=1 to long div 2 do
  if s[k]<>s[long+1-k] then begin b:=false; break; end;
 if b then inc(can);
end;

begin
 assign(input,'base.in'); reset(input);
 assign(output,'base.out'); rewrite(output);
 tot:=0;
 readln(min,max,top,bot);

 for i:=trunc(sqrt(min)) to trunc(sqrt(max)) do
 begin
  can:=0;
  for j:=top to bot do change(j,i*i);
  if can=1 then inc(tot);
 end;

 writeln(tot);
 close(input); close(output);
end.