|
%I #10 Sep 12 2018 10:49:16
%S 2,2,3,2,5,3,7,2,3,5,11,3,13,7,7,2,17,3,19,5,9,11,23,3,5,13,3,7,29,7,
%T 31,2,15,17,17,3,37,19,17,5,41,9,43,11,7,23,47,3,7,5,23,13,53,3,17,7,
%U 25,29,59,7,61,31,9,2,31,15,67,17,31,17,71,3,73,37,7,19,31,17,79,5,3,41,83,9,41,43,39,11,89
%N a(n) is the sum of absolute values of the coefficients in the n-th cyclotomic polynomial.
%C Differs from A051664 in the positions given by A013590, thus for the first time at n=105, where a(105) = 35, while A051664(105) = 33 as the 105th cyclotomic polynomial is the first one that has a coefficient other than 1, 0, or -1.
%H Antti Karttunen, <a href="/A318884/b318884.txt">Table of n, a(n) for n = 1..65537</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/CyclotomicPolynomial.html">Cyclotomic Polynomial</a>
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Cyclotomic_polynomial">Cyclotomic polynomial</a>
%t Array[Total@ Abs@ CoefficientList[Cyclotomic[#, x], x] &, 89] (* _Michael De Vlieger_, Sep 10 2018 *)
%o (PARI) A318884(n) = vecsum(apply(abs,Vec(polcyclo(n)))); \\ _Antti Karttunen_, Sep 10 2018
%Y Cf. A013590, A013595, A051258, A051664, A318886.
%K nonn
%O 1,1
%A _Antti Karttunen_, Sep 10 2018
|
