
(* Which small Salems are unramified?  *)
(* Which of those arise via cyclotomics? *)

<<salem.m
ss=<<small_salems.m
ss=Select[ss,Max[Abs[#/.x->{-1,1}]]==1&]
rs=Map[CxToReal,ss]
fs=Map[Factor[(#+1)/(x^2-4)]&,rs]
fs=Select[fs,Max[Abs[Rts[#]]]<= 2&]
