solve :: [Int] -> Int
solve [] = 0
solve (a0:a1) = (beki a0) + (solve a1)
    
beki :: Int -> Int
beki 0 = 0
beki n 
    | n `mod` 2 == 0   = beki(n `div` 2)+1
    |otherwise         = 0   

main = do
    getLine 
    a <- map read . words <$> getLine
    print $ solve a
    