|
|
A114543
|
|
Expansion of x*(1+x)/((1+2x)(1-2x-768x^2)).
|
|
0
|
|
|
0, 1, 1, 772, 2308, 597520, 2967568, 464830528, 3208753216, 363407352064, 3191137173760, 285479120733184, 3021751590913024, 225291467904913408, 2771288157631025152, 178566423666235555840, 2485482152393098412032
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
COMMENTS
|
The characteristic polynomial has the integer root -2 and the two real-valued roots 1+-sqrt(769).
|
|
LINKS
|
|
|
FORMULA
|
a(n)=772*a(n-2)+1536*a(n-3), n>2. [_From Harvey P. Dale_, Nov 25 2011]
|
|
MATHEMATICA
|
M = {{0, 1, 0}, {0, 0, 1}, {1536, 772, 0}}; w[0] = {0, 1, 1}; w[n_] := w[n] = M.w[n - 1] a = Flatten[Table[w[n][[1]], {n, 0, 25}]]
LinearRecurrence[{0, 772, 1536}, {0, 1, 1}, 20] (* Harvey P. Dale, Nov 25 2011 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,less
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|