import Control.Applicative

main :: IO ()
main = do
    n <- getLine
    xs <- map read . words <$> getLine
    print $ solve xs

solve :: [Int] -> Int
solve = foldr (\x acc -> acc + (so x)) 0

so :: Int -> Int
so x
    | even x = 1 + (so (x `div` 2))
so x = 0
