OFFSET
0,4
COMMENTS
The leftmost column of A091173 is determined by the condition that the root of each row polynomial is -1.
The first negative term occurs at index n=158.
LINKS
Paul D. Hanna, Table of n, a(n) for n = 0..200
PROG
(PARI) /* Set MAX to the number of desired terms to compute */
MAX=30; M091173=matrix(MAX+1, MAX+1, r, c, if(r==c || c==1, 1));
A091173(n, k)=M091173[n+1, k+1]=if(n==k, 1, if(n>k && k>0, sum(j=0, n-k, M091173[n-k+1, j+1]*k^j), if(k==0, -sum(j=1, n, A091173(n, j)*(-1)^j))))
for(n=0, MAX, for(k=0, n, A091173(n, k)); print1(M091173[n+1, 1], ", "))
CROSSREFS
KEYWORD
sign
AUTHOR
Paul D. Hanna, Dec 25 2003
STATUS
approved