CoefficientList[Series[(1 - 6 x)/(1 - 12 x + 31 x^2), {x, 0, 19}], x] (* Michael De Vlieger, Aug 25 2016 *)
LinearRecurrence[{12, -31}, {1, 6}, 30] (* Harvey P. Dale, Aug 28 2024 *)
PROG
(Magma) Z<x>:= PolynomialRing(Integers()); N<r5>:=NumberField(x^2-5); S:=[ ((6+r5)^n+(6-r5)^n)/2: n in [0..19] ]; [ Integers()!S[j]: j in [1..#S] ]; // Klaus Brockhaus, Nov 26 2008