use integer;$n=<>;print+(($n/5^0)+($n/3^0))*2