main :: IO()
main = getLine >>= print.(\[x, y] -> let y' = y * 2 in (*y).length $ takeWhile (<x) [y', y' * 2..x]).map read.words