main :: IO ()
main = readLn >>= print . solve 2 1
solve :: Int -> Int -> Int -> Int
solve x y l
  | 8 * x * (x + y) <= l = mod (x + y) 2 + solve (x + y) x l + solve (x + y) y l
  | otherwise = 0