login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Nonsquarefree orders of cyclotomic polynomials containing a coefficient with an absolute value greater than one.
0

%I #46 Apr 21 2018 17:41:31

%S 315,420,495,525,585,630,660,735,765,780,819,825,840,855,945,975,990,

%T 1020,1035,1050,1071,1092,1140,1170,1260,1275,1287,1320,1380,1425,

%U 1428,1470,1485,1530,1540,1560,1575,1638,1650,1665,1680,1683,1710,1716,1725,1755,1815,1820,1827,1845,1881,1890,1911,1925

%N Nonsquarefree orders of cyclotomic polynomials containing a coefficient with an absolute value greater than one.

%C Numbers in A013590 that are not squarefree.

%o (PARI) is(n)=if (!issquarefree(n), for(k=0, n, if(abs(polcoeff(polcyclo(n), k))>1, return(n))); 0)

%o for(n=1, 10^4, if(is(n), print1(n, ", "))) \\ edited by _Michel Marcus_, Apr 21 2018

%Y Cf. A013590, A013595.

%K nonn

%O 1,1

%A _Derek Orr_, Apr 22 2015