uses crt;
var a,b,i,d:longint;
(**************************************************)
function fibo(x:longint):boolean;
var b:array[1..1000] of longint;
k:longint;
begin
b[1]:=1;b[2]:=1;k:=2;
repeat
k:=k+1;
b[k]:=b[k-1]+b[k-2];
until (b[k]>x) or (b[k]=x);
if b[k]=x then exit(true);
exit(false);
end;
(******************************************************)
begin
clrscr;
readln(a,b);
d:=0;
for i:=a to b do if fibo(i) then d:=d+1;
write(d);
readln
end.