main = do
  n <- readLn
  print (recurrence n 1 0 1 1 `mod` (10^9+7))

recurrence 1 _ _ _ _ = 1
recurrence n ao ae x acc
  | n == x = acc
  | odd x = recurrence n ao (ao*(x+1)+ae) (x+1) (ao*(x+1))
  | otherwise = recurrence n (ae*(x+1)+ao) ae (x+1) (ae*(x+1))