|
Search: id:A013593
|
|
|
| A013593 |
|
Orders of cyclotomic polynomials containing a coefficient >= 5. |
|
+0
1
|
|
| 1785, 2145, 2717, 2805, 3135, 3570, 3705, 3795, 3885, 3927, 4290, 4641, 4785, 4845, 5005, 5115, 5187, 5291, 5313, 5355, 5434, 5610, 5655, 6270, 6279, 6435, 6545, 6699, 6765, 6783, 7035, 7095, 7140, 7215, 7293, 7315, 7410, 7455, 7590, 7735, 7770, 7854
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
S[ n_ ] := For[ j=1; t=0, j<n, j++, t=Cases[ CoefficientList[ Cyclotomic[ j, x ], x ], k_ /; Abs[ k ]>4 ]; If[ Length[ t ]!=0, Print[ j ] ] ]; S[ 4845 ]
|
|
CROSSREFS
|
Sequence in context: A143994 A023088 A114075 this_sequence A152943 A090232 A153837
Adjacent sequences: A013590 A013591 A013592 this_sequence A013594 A013595 A013596
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Peter T. Wang (peterw(AT)cco.caltech.edu)
|
|
EXTENSIONS
|
More terms from Don Reble (djr(AT)nk.ca), Dec 09 2001
|
|
|
Search completed in 0.002 seconds
|
