login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A013593 Orders of cyclotomic polynomials containing a coefficient the absolute value of which is >= 5. 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; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

n is in the sequence if and only if A007947(n) is in the sequence. - Robert Israel, Aug 06 2018

LINKS

Robert Israel, Table of n, a(n) for n = 1..2000

MAPLE

isA013593 := proc(n)

    numtheory[cyclotomic](n, x) ;

    {coeffs(%, x)} ;

    map(abs, %) ;

    if % minus {1, 2, 3, 4}  = {} then

        false;

    else

        true;

    end if;

end proc:

for n from 1 do

    if isA013593(n) then

        print(n);

    end if;

end do: # R. J. Mathar, Nov 28 2016

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 ]

Select[Range[8000], Max[Abs[CoefficientList[Cyclotomic[#, x], x]]]>4&] (* Harvey P. Dale, Feb 27 2015 *)

PROG

(PARI) isok(n) = #select(x->abs(x) >= 5, Vec(polcyclo(n))) > 0; \\ Michel Marcus, Aug 07 2018

CROSSREFS

Cf. A007947.

Sequence in context: A317628 A114075 A232315 * A152943 A202401 A237633

Adjacent sequences:  A013590 A013591 A013592 * A013594 A013595 A013596

KEYWORD

nonn

AUTHOR

Peter T. Wang (peterw(AT)cco.caltech.edu)

EXTENSIONS

More terms from Don Reble, Dec 09 2001

Definition clarified by Harvey P. Dale, Feb 27 2015

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 1 04:15 EDT 2020. Contains 333155 sequences. (Running on oeis4.)