main :: IO ()
main = interact $ show . sum . map (f . read) . words

f :: Int -> Int
f n | n `mod` 15 == 0                  = 8
    | n `mod` 3 == 0 || n `mod` 5 == 0 = 4
    | otherwise = length $ show n