How to generate a a special sequence of numbers in R

Could someone please advise me on how to to generate following numbers in R. 1 4 2 3 5 8 6 7 9 12 10 11 ........I have 5000 records which I need to create this pattern of numbers. Thanks