main = do
       e<-getLine
       let n=read e::Int
       putStrLn $ (("285714" !! ( (n-1) `mod` 6)):[])