main = do
    input <- getContents
    let xs = map read (words $ last $ lines input) :: [Integer]

    putStrLn $ unwords $ map (show . solve) xs
        where solve x = length $ takeWhile (< x) fibos
              fibos = 1:1:zipWith (+) fibos (tail fibos)