I.e., equally spaced over a period. What's the term? (Special case of sum|product over a root system.) I once convinced myself that *all* of them, even such nasties as Sum[Cot[f + (j*Pi)/n]*Cot[g + (j*Pi)/n]*Cot[h + (j*Pi)/n], {j, 1, n}]/n == -Cot[f*n] - Cot[g*n] - Cot[h*n] - (1/2)*Csc[f - g]*Csc[f - h]*Csc[g - h]* ((-Cot[h*n])*Sin[2*f - 2*g] + Cot[g*n]*Sin[2*f - 2*h] - Cot[f*n]*Sin[2*g - 2*h]) come out in closed form as direct consequences of nothing more than x^n-1 == Product[x-I^(4*k/n), {k, 0,n -1}]. Computer algebra junkies may "enjoy" starting here and plowing through to Sum[1/(a + b*Cos[c + (2*k*Pi)/n]), {k, 0, -1 + n}] == ((b^(2*n) - (-a + Sqrt[a^2 - b^2])^(2*n))*n)/(Sqrt[a^2 - b^2]* (b^(2*n) + (-a + Sqrt[a^2 - b^2])^(2*n) - 2*b^n*(-a + Sqrt[a^2 - b^2])^n*Cos[c*n])) ("I ask a simple question; I get a pageant." --Stan Freberg) --rwg Note the messed up ordering of the nasty cot cot cot result. Is any Computer Algebra able to, e.g., convert Sin[x - y] - Sin[x - z] + Sin[y - z] to Sin[x - y] + Sin[y - z] + Sin[z - x] ? At least Macsyma had trigsign:false to partially inhibit the reverse transformation. But then the sum would be reversed. But it also had ordergreat and orderless, which aliased symbols to have different display orderings. It only accepted individual symbols, not relations between them, but it might barely suffice here. In Mathematica, you can Inactivate all the trigs and then run around manually flipping the anticyclic ones. I'll bet people have built such tools for themselves, but if anybody has a really good solution, WRI should have heard about it.