Repeat the previous exercise, but this time use sapply instead of a for-loop. Your result has to contain the compute_s_n and s_n objects.
sapply
compute_s_n
s_n