main = do
        waste <- getLine 
        get <- getLine
        let ls = map read (words get) :: [Integer]
        let ans = sum $ map factorize ls
        putStrLn (show ans)

factorize :: Integer -> Integer
factorize i = if i `mod` 2 == 0 then (1 + factorize (i `div` 2)) else 0