main=getLine>>=print.(\x->(x`div`3+x`div`5)*2).read