A200408 a(n) = -4 + 5*Fibonacci(n+1)^2.
1, 1, 16, 41, 121, 316, 841, 2201, 5776, 15121, 39601, 103676, 271441, 710641, 1860496, 4870841, 12752041, 33385276, 87403801, 228826121, 599074576, 1568397601, 4106118241, 10749957116, 28143753121, 73681302241, 192900153616, 505019158601, 1322157322201
Offset: 0
Links
- Index entries for linear recurrences with constant coefficients, signature (3,0,-3,1).
Crossrefs
Cf. A005248.
Programs
-
Mathematica
Table[-4 + 5*Fibonacci[n]^2, {n, 2, 31}] (* Alonso del Arte, Nov 17 2011 *) -
PARI
Vec(-x*(x^3-7*x^2+13*x+1)/((x-1)*(x+1)*(x^2-3*x+1)) + O(x^100)) \\ Colin Barker, Sep 01 2013
Formula
a(n) = 3*a(n-1)-3*a(n-3)+a(n-4). G.f.: 1-x*(x^3-7*x^2+13*x+1) / ((x-1)*(x+1)*(x^2-3*x+1)). - Colin Barker, Sep 01 2013
Extensions
a(0)=1 prepended by Alois P. Heinz, Mar 11 2024
Comments