Table[2^n + (1 - Sqrt[3])^n + (1 + Sqrt[3])^n, {n, 0, 20}] // Expand
Table[2^n + 2^(n/2) LucasL[n, Sqrt[2]], {n, 0, 20}] // Round
LinearRecurrence[{4, -2, -4}, {4, 12, 28}, {0, 20}]
CoefficientList[Series[(3 - 8 x + 2 x^2)/(1 - 4 x + 2 x^2 + 4 x^3), {x, 0, 20}], x]