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

 

Logo


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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 24 11:45 EDT 2021. Contains 345416 sequences. (Running on oeis4.)