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.

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

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 * A369873 A030201 A349797

Adjacent sequences: A318883 A318884 A318885 * A318887 A318888 A318889

Keyword

nonn

Author

Antti Karttunen, Sep 10 2018

Status

approved