RSolve[{a[n] == K a[n-1] + K, a[0] = K}, a[n], n]