|
|
A013591
|
|
Orders of cyclotomic polynomials containing a coefficient the absolute value of which is >= 3.
|
|
0
|
|
|
385, 595, 665, 770, 935, 1155, 1190, 1235, 1309, 1330, 1365, 1463, 1495, 1540, 1729, 1785, 1855, 1870, 1925, 1955, 1995, 2065, 2145, 2261, 2310, 2380, 2415, 2431, 2465, 2470, 2618, 2660, 2665, 2695, 2717, 2730, 2737, 2795, 2805, 2821
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MAPLE
|
isA013591 := proc(n)
numtheory[cyclotomic](n, x) ;
{coeffs(%, x)} ;
map(abs, %) ;
if % minus {1, 2} = {} then
false;
else
true;
end if;
end proc:
for n from 1 do
if isA013591(n) then
print(n);
end if;
|
|
MATHEMATICA
|
S[ n_ ] := For[ j=1; t=0, j<n, j++, t=Cases[ CoefficientList[ Cyclotomic[ j, x ], x ], k_ /; Abs[ k ]>2 ]; If[ Length[ t ]!=0, Print[ j ] ] ]; S[ 2822 ]
Select[Range[3000], Max[Abs[CoefficientList[Cyclotomic[#, x], x]]]>2&] (* Harvey P. Dale, Feb 27 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Peter T. Wang (peterw(AT)cco.caltech.edu)
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|