0,2

Graham, R. L.; Lehmer, D. H. On the permanent of Schur's matrix. J. Austral. Math. Soc. Ser. A 21 (1976), no. 4, 487-497.

Lehmer, D. H. Some properties of circulants. J. Number Theory 5 (1973), 43-54.

I. Vardi, Computational Recreations in Mathematica. Addison-Wesley, Redwood City, CA, 1991, p. 121.

Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics.

Graham, R. L.; Lehmer, D. H., On the Permanent of Schur's Matrix, Jour. Australian Math. Soc. 21 (series A) (1976), 487-497.

(PARI) permRWNb(a)=n=matsize(a)[1]; if(n==1, return(a[1, 1])); sg=1; in=vectorv(n); x=in; x=a[, n]-sum(j=1, n, a[, j])/2; p=prod(i=1, n, x[i]); for(k=1, 2^(n-1)-1, sg=-sg; j=valuation(k, 2)+1; z=1-2*in[j]; in[j]+=z; x+=z*a[, j]; p+=prod(i=1, n, x[i], sg)); return(2*(2*(n%2)-1)*p) for(k=1, 14, n=2*k-1; z=exp(2*Pi*I/n); a=matrix(n, n, i, j, z^((i-1)*(j-1))); print1(round(real(permRWNb(a)))", ")) - Herman Jamke (hermanjamke(AT)fastmail.fm), May 17 2007

Sequence in context: A057663 A056244 A103081 this_sequence A130187 A054266 A054268

Adjacent sequences: A003109 A003110 A003111 this_sequence A003113 A003114 A003115

hard,sign

njas

More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), May 17 2007