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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A318886 The sum of absolute values of the coefficients in the n-th cyclotomic polynomial minus the largest prime factor of n; a(1)=1 by convention. 3
 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 4, 0, 10, 0, 0, 0, 4, 0, 0, 2, 0, 0, 2, 0, 0, 0, 0, 0, 6, 0, 0, 0, 6, 0, 6, 0, 0, 2, 0, 0, 2, 0, 18, 4, 0, 0, 8, 10, 0, 0, 0, 0, 2, 0, 20, 4, 0, 0, 0, 0, 0, 2, 24, 0, 10, 0, 0, 2, 10, 0, 10, 0, 12, 0, 0, 0, 4, 0, 0, 6, 0, 0, 28 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,15 COMMENTS See comments in A070536. LINKS Antti Karttunen, Table of n, a(n) for n = 1..65537 MATHEMATICA Array[Total@ Abs@ CoefficientList[Cyclotomic[#, x], x] - FactorInteger[#][[-1, 1]] &, 105] (* Michael De Vlieger, Sep 10 2018 *) PROG (PARI) A006530(n) = if(n>1, vecmax(factor(n)[, 1]), 1); \\ From A006530. A318884(n) = vecsum(apply(abs, Vec(polcyclo(n)))); A318886(n) = (A318884(n) - A006530(n)); CROSSREFS Cf. A006530, A318884. Differs from A070536 for the first time at n=105, where a(105) = 28, while A070536(105) = 26. Sequence in context: A112053 A089798 A070536 * A030201 A055668 A045839 Adjacent sequences:  A318883 A318884 A318885 * A318887 A318888 A318889 KEYWORD nonn AUTHOR Antti Karttunen, Sep 10 2018 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.

Last modified April 14 00:42 EDT 2021. Contains 342941 sequences. (Running on oeis4.)