%I A114543
%S A114543 0,1,1,772,2308,597520,2967568,464830528,3208753216,363407352064,
%T A114543 3191137173760,285479120733184,3021751590913024,225291467904913408,
%U A114543 2771288157631025152,178566423666235555840,2485482152393098412032
%N A114543 Large integer characteristic polynomial vector Markov sequence.
%C A114543 The characteristic polynomal gives three real roots and an integer root 
               of -2: x^3-772*x-1536 NSolve[Det[M - IdentityMatrix[3]*x] == 0, x] 
               {{x -> -26.7308}, {x -> -2.}, {x -> 28.7308}} 1+/-Sqrt[769]: 769 
               is a prime.
%F A114543 M = {{0, 1, 0}, {0, 0, 1}, {1536, 772, 0}}; w[0] = {0, 1, 1}; w[n_] := 
               w[n] = M.w[n - 1] a(n) = w[n][[1]]
%t A114543 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}]]
%Y A114543 Sequence in context: A046505 A013542 A045078 this_sequence A133963 A133964 
               A033919
%Y A114543 Adjacent sequences: A114540 A114541 A114542 this_sequence A114544 A114545 
               A114546
%K A114543 nonn,uned
%O A114543 0,4
%A A114543 Roger Bagula (rlbagulatftn(AT)yahoo.com), Feb 15 2006