RootSum[-4 + 18 # - 12 #^2 + #^3 &, #^Range[0, 20] &]
Table[RootSum[-4 + 18 # - 12 #^2 + #^3 &, #^n &], {n, 0, 20}]
LinearRecurrence[{12, -18, 4}, {12, 108, 1092}, {0, 20}]
CoefficientList[Series[-3 (1 - 8 x + 6 x^2)/(-1 + 12 x - 18 x^2 + 4 x^3), {x, 0, 20}], x]