%I A107378
%S A107378 0,1,1,2,4,11,35,122,440,1609,5913,21770,80204,295555,1089227,4014322,
%T A107378 14794864,54526993,200961457,740652050,2729705364,10060448635,
%U A107378 37078224883,136653426026,503642204200,1856195468633,6841089945545
%N A107378 Sequence produced by 4 X 4 Markov chain with characteristic polynomial 
               x^4-4*x^3+4*x+1.
%C A107378 Setting m=3 gives a Fibonacci sequence.
%t A107378 m = 4 M = {{0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}, {-1, -m, 0, m}} 
               Expand[Det[M - x*IdentityMatrix[4]]] NSolve[Det[M - x*IdentityMatrix[4]] 
               == 0, x] v[1] = {0, 1, 1, 2}; v[n_] := v[n] = M.v[n - 1]; digits 
               = 50; a = Table[v[n][[1]], {n, 1, digits}]
%Y A107378 Cf. A107377.
%Y A107378 Sequence in context: A126149 A000088 A071794 this_sequence A086611 A035098 
               A138301
%Y A107378 Adjacent sequences: A107375 A107376 A107377 this_sequence A107379 A107380 
               A107381
%K A107378 nonn
%O A107378 0,4
%A A107378 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 24 2005
%E A107378 Edited by N. J. A. Sloane (njas(AT)research.att.com), Jul 13 2007