%I A013592
%S A013592 1365,1785,1995,2145,2415,2431,2717,2730,2737,2805,2849,3003,3135,
%T A013592 3255,3315,3553,3570,3689,3705,3795,3885,3927,3990,4081,4095,4147,
%U A013592 4199,4290
%N A013592 Orders of cyclotomic polynomials containing a coefficient >= 4.
%t A013592 S[ n_ ] := For[ j=1; t=0, j<n, j++, t=Cases[ CoefficientList[ Cyclotomic[ 
               j, x ], x ], k_ /; Abs[ k ]>3 ]; If[ Length[ t ]!=0, Print[ j ] ] 
               ]; S[ 4290 ]
%Y A013592 Sequence in context: A004930 A004950 A028486 this_sequence A152942 A043686 
               A043578
%Y A013592 Adjacent sequences: A013589 A013590 A013591 this_sequence A013593 A013594 
               A013595
%K A013592 nonn
%O A013592 1,1
%A A013592 Peter T. Wang (peterw(AT)cco.caltech.edu)