main :: IO ()
main = do
    n <- readLn
    putStrLn $ unwords $ map show $ solve n

solve :: Int -> [Int]
solve n | n `mod` 3 == 0 = reverse $ 3 : 3 : replicate (n - 2) 1
        | n `mod` 3 == 1 = reverse $ 3 : 3 : 3 : replicate (n - 3) 1
        | otherwise      = reverse $ 3 : replicate (n - 1) 1