solve :: [Int] -> Int
solve [] = 0
solve (x:xs)
  | odd x     = solve xs
  | otherwise = 1 + solve ((x `div` 2):xs)

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