

main = do
  _ <- read <$> getLine :: IO Int
  as <- map read . words <$> getLine :: IO [Int]
  print $ solve as 0

solve [] accum = accum 
solve (a:as) accum =
  if (a `mod` 2 == 0) then
    solve (div a 2 : as) $ accum+1
  else solve as accum
