task6

var a:array[0..200] of integer;
    i,x,y:integer;
Begin

  readln(x,y);

  a[x]:=1;

  for i:=x to y do begin
    if i+1<=y then a[i+1]:=a[i+1]+a[i];
    if i+2<=y then a[i+2]:=a[i+2]+a[i];
    if i*2<=y then a[i*2]:=a[i*2]+a[i];
  end;

  writeln(a[y]);

End.