OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (3,-1,-2).
FORMULA
a(n) = 8*2^n - Fibonacci(n+5) - Fibonacci(n+3).
a(n) = A101220(4, 2, n+1).
G.f.: (1+2*x)/((1-2*x)*(1-x-x^2)). - R. J. Mathar, Sep 22 2008
MAPLE
with(combinat); f:=fibonacci; seq(2^(n+3) - f(n+5) - f(n+3), n=0..30); # G. C. Greubel, Sep 26 2019
MATHEMATICA
Table[2^(n+3) - LucasL[n+4], {n, 0, 30}] (* G. C. Greubel, Sep 26 2019 *)
PROG
(PARI) vector(31, n, f=fibonacci; 2^(n+2) - f(n+4) - f(n+2)) \\ G. C. Greubel, Sep 26 2019
(Magma) [2^(n+3) - Lucas(n+4): n in [0..30]]; // G. C. Greubel, Sep 26 2019
(Sage) [2^(n+3) - lucas_number2(n+4, 1, -1) for n in (0..30)] # G. C. Greubel, Sep 26 2019
(GAP) List([0..30], n-> 2^(n+3) - Lucas(1, -1, n+4)[2]); # G. C. Greubel, Sep 26 2019
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved