Computations for homework 11

Additional exercise 2

expCoef[s_, n_] := n! Coefficient[s, x, n]

g0 = (∑_(j=2)^4)((x^j)/(Factorial[j]))

g0^6

Expand[g0^6]

expCoef[g0^6, 16]

Additional exercise 3

g0 = (∑_(j=0)^4)((x^j)/(Factorial[j]))

g0^13

expCoef[g0^13, 13]