import Control.Applicative
import Control.Monad
import Data.List
import Data.Array
import Data.Char

main = do
  n <- (read::String -> Int) <$> getLine
  arr <- map (read::String -> Int) . words <$> getLine
  print $ foldl (\acc n -> acc + calcLog n 2) 0 arr
  

calcLog::Int -> Int -> Int
calcLog x y = if x `mod` y == 0 
  then 1 + calcLog (x `div` y) y
  else 0
