
kernelopts(numcpus=1);
with(LinearAlgebra):
for n from 6 to 12 do
    X := [seq(x||i,i=1..n)];
    Tn := ToeplitzMatrix(X,symmetric);
    d := CodeTools[Usage](Determinant(Tn)):
    f := CodeTools[Usage](factors(d)):
    printf("n=%d  #d=%d  #f=%a\n\n",n,nops(d),map(proc(f) nops(f[1]) end,f[2]));
od:
