use std::io::*;
use std::str::FromStr;

#[allow(dead_code)]
fn get_line() -> String {
    let stdin = stdin();
    let mut line = String::new();
    stdin.lock().read_line(&mut line).expect("io error.");
    line.trim().to_string()
}

#[allow(dead_code)]
fn cast<T: FromStr>(s: &str) -> T {
    s.parse().ok().expect("parse error.")
}

#[allow(dead_code)]
fn get_vec<T: FromStr>() -> Vec<T> {
    (&get_line()).split(' ').map(cast::<T>).collect()
}


/* ---------- ここまでテンプレ ---------- */


fn main() {
    let av: Vec<u64> = get_vec();

    let mut ans: u64 = 0;
    for a in av {
        if a % 3 > 0 && a % 5 > 0 {
            ans += a.to_string().len() as u64;
            continue;
        }
        if a % 3 == 0 {ans += 4};
        if a % 5 == 0 {ans += 4};
    }

    println!("{}", ans);
}