%I A089068
%S A089068 0,1,3,6,12,23,43,80,148,273,503,926,1704,3135,5767,10608,19512,35889,
%T A089068 66011,121414,223316,410743,755475,1389536,2555756,4700769,8646063,
%U A089068 15902590,29249424,53798079,98950095,181997600,334745776,615693473
%N A089068 Let m0 be the 3 X 3 matrix {{0,1,0},{0,0,1},{1,1,q}}; then a(n) = (3,
               3)-element of m0^n.
%F A089068 G.f.: [x^2(1+x)]/[(1-x)(1-x-x^2-x^3)].
%t A089068 digits=100 NSolve[x^3-x^2-x-1==0, x] k=1.83928675521416113 q=k^2-k-1/
               k m0={{0, 1, 0}, {0, 0, 1}, {1, 1, q}} m[n_]=MatrixPower[m0, n] a=Table[Floor[Re[m[n][[3, 
               3]]]], {n, 1, digits}]
%Y A089068 Pairwise sums of A008937, A018921.
%Y A089068 Cf. A027114.
%Y A089068 Sequence in context: A097939 A162506 A055244 this_sequence A018180 A079735 
               A050243
%Y A089068 Adjacent sequences: A089065 A089066 A089067 this_sequence A089069 A089070 
               A089071
%K A089068 nonn
%O A089068 1,3
%A A089068 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Dec 03 2003