main = getLine >>= print . sum . map (fb . read) . words

fb :: Int -> Int
fb n    | mod n 3 == 0 && mod n 5 == 0  = 8
        | mod n 3 == 0 || mod n 5 == 0  = 4
        | otherwise                     = length $ show n