%I A152862
%S A152862 1,1,1,5,4,1,25,19,5,1,125,94,25,5,1,625,469,125,25,5,1,
%T A152862 3125,2344,625,125,25,5,1,15625,11719,3125,625,125,25,5,1,
%U A152862 78125,58594,15625,3125,625,125,25,5,1,390625,292969,78125
%V A152862 1,1,-1,5,-4,-1,25,-19,-5,-1,125,-94,-25,-5,-1,625,-469,-125,-25,-5,-1,
%W A152862 3125,-2344,-625,-125,-25,-5,-1,15625,-11719,-3125,-625,-125,-25,-5,-1,
%X A152862 78125,-58594,-15625,-3125,-625,-125,-25,-5,-1,390625,-292969,-78125
%N A152862 Triangle read by rows: vector recursion: s=5; v(n)={s^(n+1),s^(n+1)-Sum[s^i,
               {i,2,n}],s^n,...,-1}/s^2.
%C A152862 Except for first row, row sums are zero.
%F A152862 s = 5; v(n) = {s^(n+1),s^(n+1)-Sum[s^i,{i,2,n}],s^n,...,-1}/s^2.
%e A152862 {1},
%e A152862 {1, -1},
%e A152862 {5, -4, -1},
%e A152862 {25, -19, -5, -1},
%e A152862 {125, -94, -25, -5, -1},
%e A152862 {625, -469, -125, -25, -5, -1},
%e A152862 {3125, -2344, -625, -125, -25, -5, -1},
%e A152862 {15625, -11719, -3125, -625, -125, -25, -5, -1},
%e A152862 {78125, -58594, -15625, -3125, -625, -125, -25, -5, -1},
%e A152862 {390625, -292969, -78125, -15625, -3125, -625, -125, -25, -5, -1},
%e A152862 {1953125, -1464844, -390625, -78125, -15625, -3125, -625, -125, -25, 
               -5, -1}
%t A152862 Clear[s, b, n]; s = 5; b[0] = {1}; b[1] = {1, -1};
%t A152862 b[n_] := Join[{s^(n + 1)}, -{s^(n + 1) - Sum[s^i, {i, n, 2, -1}]}, -Table[s^i, 
               {i, n, 2, -1}]]/s^2;
%t A152862 Table[b[n], {n, 0, 10}];
%t A152862 Flatten[%]
%Y A152862 Sequence in context: A005752 A098494 A008955 this_sequence A108440 A102220 
               A109430
%Y A152862 Adjacent sequences: A152859 A152860 A152861 this_sequence A152863 A152864 
               A152865
%K A152862 tabl,sign
%O A152862 0,4
%A A152862 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Dec 14 2008