import sequtils,strutils
var
    L, R, ans : int

(L, R) = stdin.readline.split.map(parseInt)

type
    unionfindtree[I : static[int]] = array[I,int]

proc initUT(I : static[int]):unionfindtree[I] =
    var res : unionfindtree[I]
    for i in 0..<I:
        res[i] = i
    return res

proc find(U : var unionfindtree; a : int, b :int): bool=
    var
        s = a
        t = b
    while s != U[s]:
        s = U[s]
    while t != U[t]:
        t = U[t]
    var
        s2 = a
        t2 = b
        p : int
    while s2 != s:
        p = U[s2]
        U[s2] = s
        s2 = p
    while t2 != t:
        p = U[t2]
        U[t2] = t
        t2 = p
    return s == t
    
proc union(U : var  unionfindtree; a : int ; b : int)=
    if U.find(a,b):
        return
    var
        s = a
        t = b
        t2 : int
    while s != U[s]:
        s = U[s]
    while t != U[t]:
        t2 = U[t]
        U[t] = s
        t = t2
    U[t] = s
proc root(U : unionfindtree, a :int):int=
    var
        s = a
    while s != U[s]:
        s = U[s]
    return s

var
    A = initUT(200010)

for i in L..R:
    for j in 2..200010:
        if i * j >  R:
            break
        A.union(i, i * j)

for i in L..R:
    if A[i] == i:
        ans += 1
echo ans - 1