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