main = do
    n <- getLine
    a <- map read . words <$> getLine
    putStrLn . show $ solve a

solve:: [Int]-> Int
solve a = evCount 0 a

evCount n s
    | hasOdd s = n
    | otherwise = evCount (n + 1) $ map (\x -> div x 2) s

hasOdd:: [Int] -> Bool
hasOdd [] = False
hasOdd (s:ss)
    | mod s 2 == 1 = True
    | otherwise = hasOdd ss
