{-# OPTIONS_GHC -O #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ViewPatterns #-}

import Control.Monad
import Data.List
import qualified Data.ByteString.Char8 as B

d2 a
    | even a = 1 + (d2 $ a `div` 2)
    | True = 0

cnt [] = 0
cnt (a:as) = (d2 a) + (cnt as)

main=do
    n<-readLn::IO Int
    as<-unfoldr (B.readInt.B.dropWhile(==' '))<$>B.getLine :: IO[Int]
    print $ cnt as
