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

%I A119515
%S A119515 0,1,8,28,71,150,281,483,778,1191,1750,2486,3433,4628,6111,7925,10116,
%T A119515 12733,15828,19456,23675,28546,34133,40503,47726,55875,65026,75258,
%U A119515 86653,99296
%V A119515 0,-1,8,-28,71,-150,281,-483,778,-1191,1750,-2486,3433,-4628,6111,-7925,
               10116,-12733,
%W A119515 15828,-19456,23675,-28546,34133,-40503,47726,-55875,65026,-75258,86653,
               -99296
%N A119515 Pattern Matrix of alternating sign 5 X 5 Matrix Markov with low ratio 
               and characteristic polynomial: x^5+5*x^4+20*x^3+20*x^2+5*x+1.
%F A119515 G.f.:x*(x^3+2*x^2+3*x-1)/(x+1)^5 [From Maksym Voznyy (voznyy(AT)mail.ru), 
               Aug 11 2009]
%e A119515 Diagonals alternate in sign:
%e A119515 {{-1, 1, -1, 1, -1},
%e A119515 {0, -1, 1, -1, 1},
%e A119515 {0, 0, -1, 1, -1},
%e A119515 {0, 0, 0, -1,1},
%e A119515 {0, 0, 0, 0, -1}}
%t A119515 M = Table[If[n > m, 0, -(-1)^(n + m), If[n < m, (-1)^(n + m), 0]], {n, 
               1, 5}, {m, 1, 5}]; w[1] = {0, 1, 1, 2, 3}; w[n_] := w[n] = M.w[n 
               - 1] a = Table[w[n][[1]], {n, 1, 30}]
%Y A119515 Sequence in context: A083013 A028553 A100182 this_sequence A153976 A105636 
               A102665
%Y A119515 Adjacent sequences: A119512 A119513 A119514 this_sequence A119516 A119517 
               A119518
%K A119515 sign,uned
%O A119515 0,3
%A A119515 Roger L. Bagula (rlbagulatftn(AT)yahoo.com)), Jul 27 2006

Search completed in 0.001 seconds