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 (-2,-1,-2,-1,-2).
FORMULA
G.f.: x*(3*x^3+2*x^2+x+3)/((2*x+1)*(x^2+x+1)*(x^2-x+1)). - Maksym Voznyy (voznyy(AT)mail.ru), Aug 11 2009
a(n) + 2*a(n-1) + a(n-2) + 2*a(n-3) + a(n-4) + 2*a(n-5) = 0. - G. C. Greubel, Oct 19 2016
MAPLE
A024495 := proc(n) option remember ; if n <=1 then 0 ; elif n = 2 then 1; elif n = 3 then 3 ; else A024495(n-1)-A024495(n-2)+2^(n-2) ; fi ; end: A135574 := proc(n) option remember ; A024495(2*floor(n/2)+1 - ( n mod 2)) ; end: A135575 := proc(n) A135574(n+1)-2*A135574(n) ; end: seq(A135575(n), n=0..80) ; # R. J. Mathar, Mar 31 2008
MATHEMATICA
LinearRecurrence[{-2, -1, -2, -1, -2}, {0, 3, -5, 9, -16}, 25] (* G. C. Greubel, Oct 19 2016 *)
PROG
(PARI) a(n)=([0, 1, 0, 0, 0; 0, 0, 1, 0, 0; 0, 0, 0, 1, 0; 0, 0, 0, 0, 1; -2, -1, -2, -1, -2]^n*[0; 3; -5; 9; -16])[1, 1] \\ Charles R Greathouse IV, Oct 19 2016
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Paul Curtz, Feb 24 2008
EXTENSIONS
More terms from R. J. Mathar, Mar 31 2008
STATUS
approved