%I #3 Mar 30 2012 17:34:28
%S 1,1,-1,7,-6,-1,49,-41,-7,-1,343,-286,-49,-7,-1,2401,-2001,-343,-49,
%T -7,-1,16807,-14006,-2401,-343,-49,-7,-1,117649,-98041,-16807,-2401,
%U -343,-49,-7,-1,823543,-686286,-117649,-16807,-2401,-343,-49,-7,-1,5764801
%N Scaled row sum zero vector recursion:s=7; v(n)={s^(n+1),s^(n+1)-Sum[s^i,{i,2,n}],s^n,...,-1}/s^2.
%F s = 7; v(n) = {s^(n+1),s^(n+1)-Sum[s^i,{i,2,n}],s^n,...,-1}/s^2.
%e {1},
%e {1, -1},
%e {7, -6, -1},
%e {49, -41, -7, -1},
%e {343, -286, -49, -7, -1},
%e {2401, -2001, -343, -49, -7, -1},
%e {16807, -14006, -2401, -343, -49, -7, -1},
%e {117649, -98041, -16807, -2401, -343, -49, -7, -1},
%e {823543, -686286, -117649, -16807, -2401, -343, -49, -7, -1},
%e {5764801, -4804001, -823543, -117649, -16807, -2401, -343, -49, -7, -1},
%e {40353607, -33628006, -5764801, -823543, -117649, -16807, -2401, -343, -49, -7, -1}
%t Clear[s, b, n]; s = 7; b[0] = {1}; b[1] = {1, -1};
%t b[n_] := Join[{s^(n + 1)}, -{s^(n + 1) - Sum[s^i, {i, n, 2, -1}]}, -Table[s^i, {i, n, 2, -1}]]/49;
%t Table[b[n], {n, 0, 10}];
%t Flatten[%]
%K sign
%O 0,4
%A _Roger L. Bagula_, Dec 14 2008