Table[n + Ceiling[(n - 3)/3] , {n, 1, 10}]