fizzbuzz :: [Integer] -> Integer
fizzbuzz [] = 0
fizzbuzz (x:xs)
    | mod x 3 == 0 && mod x 5 == 0 = 8 + fizzbuzz xs
    | mod x 3 /= 0 && mod x 5 /= 0 = sz x + fizzbuzz xs
    | otherwise = 4 + fizzbuzz xs

sz :: Integer -> Integer
sz 0 = 0
sz x = 1 + sz (div x 10)

main = do
    a <- map read . words <$> getLine
    print $ fizzbuzz a