%I #26 Apr 21 2018 17:41:44
%S 273,357,429,546,561,609,627,714,759,777,819,858,897,957,969,987,1001,
%T 1023,1071,1092,1122,1131,1218,1221,1239,1254,1287,1309,1407,1419,
%U 1428,1463,1491,1518,1547,1551,1554,1638,1659,1677,1683,1716,1729,1749,1767,1771,1794,1827,1869,1881,1887,1911,1914,1938
%N Orders n of cyclotomic polynomials containing a coefficient with an absolute value greater than one, with n not divisible by 5.
%C Numbers in A013590 that are not divisible by 5.
%o (PARI) is(n)=if(n%5, 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
|