a = (∑_(k = 0)^10) k (x^k)

CoefficientList[a, x]

Coefficient[a, x, 5]