main= do
	n<-fmap read getLine
	putStrLn$show$(n `div` 5 + n `div` 3)*2