Search: id:A121804
Results 1-1 of 1 results found.

%I A121804
%S A121804 0,159,4846,43648,272432,1759444,10596296,64633588,387979832,2337067204,
%T A121804 14023337096,84221417428,505334268632,3032732926564,18196438915496,
%U A121804 109185158327668,655111280131832,3930726320267524,23584360724983496
%N A121804 1045*6^n/27-513*2^(n-2)-2072*3^(n-3)+670*(-1)^n*3^(n-3)+254*(-1)^(n+1), 
               n>1.
%C A121804 Unique structure in that all the secular roots are Integers.
%F A121804 a(n)= 7*a(n-1) +5*a(n-2) -75*a(n-3) +36*a(n-4) +108*a(n-5), n>6. [Oct 
               14 2009]
%F A121804 G.f.: x^2*(-159-3733*x-8931*x^2+45409*x^3+8094*x^4)/( (6*x-1)*(3*x-1) 
               * (2*x-1) * (3*x+1) * (1+x)). [Oct 14 2009]
%t A121804 M = {{0, 1, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {1, 0, 1, 
               0, 1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0}, {1, 1, 0, 1, 0, 1, 
               0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0}, {1, 0, 1, 0, 1, 1, 0, 0, 0, 
               1, 0, 0, 0, 0, 0, 1, 0, 0}, {1, 1, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 
               0, 0, 0, 0, 1, 0}, {0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 
               0, 0, 1}, {1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0}, 
               {0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 0, 0}, {0, 0, 1, 
               0, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 
               1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 1, 0, 1, 1, 0, 
               1, 0, 1, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 1, 0, 
               0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 
               1, 1, 0}, {0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 1, 1}, 
               {0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1}, {0, 0, 0, 
               1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 1}, {0, 0, 0, 0, 1, 0, 
               0, 0, 0, 0, 1, 0, 1, 1, 0, 1, 0, 1}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 
               0, 0, 1, 0, 1, 1, 1, 1, 0}}; v[1] = Table[Fibonacci[n], {n, 0, 17}] 
               v[n_] := v[n] = M.v[n - 1] a = Table[v[n][[1]], {n, 1, 50}]
%Y A121804 Sequence in context: A093472 A090948 A121800 this_sequence A013454 A013455 
               A013465
%Y A121804 Adjacent sequences: A121801 A121802 A121803 this_sequence A121805 A121806 
               A121807
%K A121804 nonn
%O A121804 1,2
%A A121804 Roger Bagula (rlbagulatftn(AT)yahoo.com), Aug 28 2006
%E A121804 Definition replaced by formula - The Assoc. Editors of the OEIS, Oct 
               14 2009

Search completed in 0.001 seconds