OFFSET
1,4
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..500
Ed Pegg Jr, Table illustrating A193681 (Each box gives n, degree (A055034), and determinant (this sequence).)
FORMULA
MAPLE
g:= proc(n) local P, z, j;
P:= factor(evala(Norm(z-convert(2*cos(Pi/n), RootOf))));
if type(P, `^`) then P:= op(1, P) fi;
discrim(P, z)
end proc:
map(g, [$1..100]); # Robert Israel, Aug 04 2015
MATHEMATICA
Table[NumberFieldDiscriminant[Cos[Pi/m]], {m, 1, z}] (* Clark Kimberling, Aug 03 2015 *)
CROSSREFS
KEYWORD
nonn,easy,changed
AUTHOR
Wolfdieter Lang, Sep 13 2011
STATUS
approved