OFFSET
0,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..200
FORMULA
G.f.: (2 - 7*x + 6*x^2 + 5*x^3)/((1 - x - x^2)(1 - 4*x - x^2)).
MATHEMATICA
Table[LucasL[3 n] - Fibonacci[n], {n, 0, 30}] (* or *) CoefficientList[Series[(2 - 7 x + 6 x^2 + 5 x^3)/((1 - x - x^2) (1 - 4 x - x^2)), {x, 0, 40}], x]
PROG
(Magma) [Lucas(3*n) - Fibonacci(n): n in [0..30]];
(Python)
import sympy
{print(sympy.lucas(3*n)-sympy.fibonacci(n), end=', ') for n in range(50)}
# Derek Orr, Aug 02 2014
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Aug 02 2014
STATUS
approved