OFFSET
0,3
REFERENCES
Roger L. Bagula, email message, Aug 08 2014.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..200
Index entries for linear recurrences with constant coefficients, signature (11,-40,55,-25).
FORMULA
a(n) = 5^n - A020876(n) + 1.
G.f.: -x*(5*x^2-1)/((1-5*x+5*x^2)*(x-1)*(5*x-1)). - Vincenzo Librandi, Aug 08 2014
MAPLE
g:=n->simplify(rationalize(simplify(expand( (sqrt(5)*p)^n + (sqrt(5)*q)^n ))); # A020876
h:=n->5^n-g(n)+1;
[seq(h(n), n=0..40)];
MATHEMATICA
CoefficientList[Series[-x (5 x^2 - 1)/((1 - 5 x + 5 x^2) (x - 1)(5 x - 1)), {x, 0, 40}], x] (* Vincenzo Librandi, Aug 08 2014 *)
LinearRecurrence[{11, -40, 55, -25}, {0, 1, 11, 76}, 30] (* Harvey P. Dale, Nov 05 2017 *)
PROG
(Magma) [5^n + 1 - Floor(((5+Sqrt(5))/2)^n+((5-Sqrt(5))/2)^n): n in [0..30]]; // Vincenzo Librandi, Aug 08 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Aug 08 2014
STATUS
approved