import qualified Data.ByteString.Char8 as BC
import Data.Maybe

readIntsLine :: IO [Int]
readIntsLine = map (fst . fromJust . BC.readInt) . BC.words <$> BC.getLine

cdiv :: Int -> Int
cdiv t = if t `mod` 2 /= 0
         then 0
         else 1 + cdiv (t `div` 2)

main :: IO ()
main = do
  getLine
  as <- readIntsLine
  print . sum $ cdiv <$> as