%I A147592
%S A147592 1,1,2,0,0,4,2,5,3,0,12,0,12,16,5,35,18,36,64,40,110,105,135,240,216,
%T A147592 384,472,560,905,999,1458,1960,2368,3500,4302,5805,7947,9936,13860,
%U A147592 17920,23588,32096,41229,55755,73570,96460,129920,169680,226206,300369
%V A147592 1,-1,2,0,0,4,-2,5,3,0,12,0,12,16,5,35,18,36,64,40,110,105,135,240,216,
%W A147592 384,472,560,905,999,1458,1960,2368,3500,4302,5805,7947,9936,13860,
%X A147592 17920,23588,32096,41229,55755,73570,96460,129920,169680,226206,300369
%N A147592 Coefficient expansion of the symmetrical polynomial: 1 + x - x^2 - 3 
               x^3 - x^4 + x^5 + x^6.
%C A147592 Vector Matrix Markov: M={{0, 1, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0}, {0, 
               0, 0, 1, 0, 0}, {0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 1}, {-1, -1, 
               1, 3, 1, -1}}; v[0] = Table[a[[n]], {n, 1, 6}]={1, -1, 2, 0, 0, 4}; 
               v[n_] := v[n] = M.v[n - 1]; Table[v[n][[1]], {n, 0, 50}]
%F A147592 a()=Coefficient_Expansion(1 + x - x^2 - 3 x^3 - x^4 + x^5 + x^6).
%t A147592 f[x_] = x^3 - x - 1; g[x] = ExpandAll[ -f[x]*x^3*f[1/x]]; a = Table[SeriesCoefficient[Series[1/
               g[x], {x, 0, 50}], n], {n, 0, 50}]
%Y A147592 Sequence in context: A118965 A121552 A158118 this_sequence A108885 A072740 
               A080964
%Y A147592 Adjacent sequences: A147589 A147590 A147591 this_sequence A147593 A147594 
               A147595
%K A147592 sign
%O A147592 0,3
%A A147592 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 08 2008