RSolve[{a[1] == 1, 3 a[n + 1] == a[n] - 6}, a[n], {n}]