main :: IO ()
main = do
  _ <- getInt
  xs <- getInts
  print . sum . map f $ xs
  where
    f = length . takeWhile even . iterate (`div` 2)

getInt :: IO Int
getInt = read <$> getLine

getInts :: IO [Int]
getInts = map read . words <$> getLine
