OFFSET
0,3
COMMENTS
Old name was: a(n)=2^Floor[n/2]*((1 + Sqrt[7])^n - (1 - Sqrt[7])^n)/(2^n*Sqrt[7]).
REFERENCES
Murat Sahin and Elif Tan, Conditional (strong) divisibility sequences, Fib. Q., 56 (No. 1, 2018), 18-31.
LINKS
Index entries for linear recurrences with constant coefficients, signature (0,8,0,-9).
FORMULA
a(n) = 8*a(n-2)-9*a(n-4). G.f.: -x*(x-1)*(3*x+1)/(9*x^4-8*x^2+1). [Colin Barker, Jan 05 2013]
MATHEMATICA
f[n_] = 2^Floor[n/2]*((1 + Sqrt[7])^n - (1 - Sqrt[7])^n)/(2^n*Sqrt[7]);
Table[FullSimplify[ExpandAll[f[n]]], {n, 0, 30}]
LinearRecurrence[{0, 8, 0, -9}, {0, 1, 2, 5}, 30] (* Harvey P. Dale, Aug 21 2014 *)
PROG
(PARI) concat(0, Vec((1-x)*(3*x+1)/(9*x^4-8*x^2+1)+O(x^99))) \\ Charles R Greathouse IV, May 15 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, Apr 03 2010
EXTENSIONS
New name from Colin Barker, Jan 05 2013
STATUS
approved