A245799 Lucas(3*n) - Fibonacci(n).

2, 3, 17, 74, 319, 1359, 5770, 24463, 103661, 439170, 1860443, 7881107, 33385138, 141422091, 599074201, 2537720026, 10749956135, 45537547527, 192900151034, 817138159415, 3461452801237, 14662949384658, 62113250372707, 263115950928619, 1114577054173154

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

Cf. A000032, A000045, A005248, A014448.

Sequence in context: A055739 A220703 A342547 * A056794 A135726 A164816

Adjacent sequences: A245796 A245797 A245798 * A245800 A245801 A245802

Keyword

nonn,easy

Author

Vincenzo Librandi, Aug 02 2014

Status

approved