Table[RootSum[-8 - 4 # - 14 #^2 + 4 #^3 - 5 #^4 + #^5 & , #^n &], {n, 20}]
RootSum[-8 - 4 # - 14 #^2 + 4 #^3 - 5 #^4 + #^5 & , #^Range[20] &]
LinearRecurrence[{5, -4, 14, 4, 8}, {5, 17, 107, 553, 2635}, 20]
CoefficientList[Series[(-5 + 8 x - 42 x^2 - 16 x^3 - 40 x^4)/(-1 + 5 x - 4 x^2 + 14 x^3 + 4 x^4 + 8 x^5), {x, 0, 20}], x]