import qualified Data.ByteString.Char8 as B
import qualified Data.Vector.Unboxed as VU
import Data.Char

solve :: VU.Vector Int -> Int
solve xs = VU.foldl' step 0 xs
    where
        step n x
            | even x = n + loop x
            | otherwise = n
            where
                loop x
                    | even x = 1 + (loop $ x `quot` 2)
                    | otherwise = 0

main = do
    n <- readLn :: IO Int
    xs <- VU.unfoldrN n (B.readInt . B.dropWhile isSpace) <$> B.getLine
    print $ solve xs