OFFSET
1,4
LINKS
Eric Weisstein's World of Mathematics, Sylvester Cyclotomic Number.
FORMULA
MATHEMATICA
f[n_] := FullSimplify[ Expand[ Times @@ ((1+Sqrt[3])-(1-Sqrt[3])*Exp[2Pi*I*Select[Range[n], GCD[ #, n] == 1 &]/n])]]; Table[ f[n], {n, 2, 32] (* Robert G. Wilson v, Aug 02 2005 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Paul Barry, Apr 15 2005
EXTENSIONS
More terms from David Wasserman, May 06 2008
STATUS
approved