A105607 Sylvester cyclotomic numbers for A002605.
1, 2, 6, 8, 44, 10, 328, 56, 408, 76, 18272, 52, 136384, 568, 3856, 3104, 7598336, 424, 56714752, 2896, 215104, 31648, 3159738368, 3088, 536013824, 236224, 71910912, 161344, 1313964867584, 2320, 9807567290368, 9634304, 667730944, 13160704, 37860806656, 172864, 4078438577864704, 98232832, 37201186816, 9584896
Offset: 1
Keywords
Links
- Eric Weisstein's World of Mathematics, Sylvester Cyclotomic Number.
Programs
-
Mathematica
f[n_] := FullSimplify[ Expand[ Times @@ ((1+Sqrt[3])-(1-Sqrt[3])*Exp[2Pi*I*Select[Range[n-1], GCD[ #, n] == 1 &]/n])]]; Table[ f[n], {n, 1, 32}] (* Robert G. Wilson v, Aug 02 2005 *)
Formula
a(n) = A002605(n)/A105606(n); a(n) = Product_{k=1..n-1, gcd(n, k)=1} (1+sqrt(3))-(1-sqrt(3))*exp(2*Pi*i*k/n), i = sqrt(-1). - Robert G. Wilson v, Aug 02 2005
Extensions
More terms from David Wasserman, May 06 2008
Comments