/**************************************************************

     Problem:

     User: BLADEVIL

     Language: Pascal

     Result: Accepted

     Time: ms

     Memory: kb

 ****************************************************************/

 //By BLADEVIL

 var

     w                   :array[..,-..] of longint;

     c                   :array[..] of longint;

     a, b                :longint;

 function ask(x:longint):longint;

 var

     len, Sum, i, j      :longint;

 begin

     if x= then exit();

     len:=;

     while x> do

     begin

         inc(len);

         c[len]:=x mod ;

         x:=x div ;

     end;

     ask:=;

     for i:= to len- do

         for j:= to  do

             ask:=ask+w[i,j];

     for j:= to c[len]- do

         ask:=ask+w[len,j];

     for i:=len- downto  do

     begin

         for j:= to c[i]- do

             if abs(c[i+]-j)>= then ask:=ask+w[i,j];

         if abs(c[i+]-c[i])< then break;

     end;

 end;

 procedure main;

 var

     i, j, k             :longint;

 begin

     for i:= to  do w[,i]:=;

     for i:= to  do

         for j:= to  do

             for k:= to  do

                 if abs(j-k)>= then w[i,j]:=w[i,j]+w[i-,k];

     readln(a,b);

     writeln(ask(b+)-ask(a));

 end;

 begin

     main;

 end.