main :: IO ()
main = do
    input1 <- getLine
    input2 <- getLine
    let list2 = (map read (words input2)) :: [Int]
    putStrLn (show (countAll2 list2))

count2 :: Int -> Int
count2 n = if ( n `mod` 2) == 0
    then 1 + (count2 (n `div` 2))
    else 0

countAll2 :: [Int] -> Int
countAll2 list = foldr (+) 0 ( map count2 list)