RSolve[{a[n] == a[n-1]+(n)!, a[0] == 1}, a[n], n]