import Data.List

main :: IO ()
main = do
  _ <- getInt
  xs <- getInts
  print $ sum $ map f xs
  where
    f x
      |    even x = 1 + f (x `div` 2)
      | otherwise = 0

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

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