cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-2 of 2 results.

A013594 Smallest order of cyclotomic polynomial containing n or -n as a coefficient.

Original entry on oeis.org

0, 105, 385, 1365, 1785, 2805, 3135, 6545, 6545, 10465, 10465, 10465, 10465, 10465, 11305, 11305, 11305, 11305, 11305, 11305, 11305, 15015, 11305, 17255, 17255, 20615, 20615, 26565, 26565, 26565, 26565, 26565, 26565, 26565, 26565, 26565
Offset: 1

Views

Author

Keywords

Comments

This sequence is infinite - see the Lang reference.
An alternative version would start with 1 rather than 0.

Examples

			a(2)=105 because cyclotomic(105) contains "-2" as coefficient, but for n < 105 cyclotomic(n) does not contain 2 or -2.
x^105 - 1 = ( - 1 + x)(1 + x + x^2)(1 + x + x^2 + x^3 + x^4)(1 + x + x^2 + x^3 + x^4 + x^5 + x^6)(1 - x + x^3 - x^4 + x^5 - x^7 + x^8)(1 - x + x^3 - x^4 + x^6 - x^8 + x^9 - x^11 + x^12)(1 - x + x^5 - x^6 + x^7 - x^8 + x^10 - x^11 + x^12 - x^13 + x^14 - x^16 + x^17 - x^18 + x^19 - x^23 + x^24)(1 + x + x^2 - x^5 - x^6 - 2x^7 - x^8 - x^9 + x^12 + x^13 + x^14 + x^15 + x^16 + x^17 - x^20 - x^22 - x^24 - x^26 - x^28 + x^31 + x^32 + x^33 + x^34 + x^35 + x^36 - x^39 - x^40 - 2x^41 - x^42 - x^43 + x^46 + x^47 + x^48)
		

References

  • Bateman, C. Pomerance and R. C. Vaughan, Colloq. Math. Soc. Janos Bolyai, 34 (1984), 171-202.
  • S. Lang, Algebra: 3rd edition, Addison-Wesley, 1993, p. 281.
  • Maier, Prog. Math. 85 (Birkhaueser), 1990, 349-366.
  • Maier, Prog. Math. 139 (Birkhaueser) 1996, 633-638.

Crossrefs

Programs

  • Mathematica
    Table[Position[Table[Max[Abs[Flatten[CoefficientList[Transpose[FactorList[x^i - 1]][[1]], x]]]], {i, 1, 10000}], j][[1]], {j, 1, 10}] (* Ian Miller, Feb 25 2008 *)
  • PARI
    nm=6545; m=0; forstep(n=1, nm, 2, if(issquarefree(n), p=polcyclo(n); o=poldegree(p); for(k=0, o, a=abs(polcoeff(p, k)); if(a>m, m=a; print([m, n, factor(n)])))))

Extensions

More terms from Eric W. Weisstein
Further terms from T. D. Noe, Oct 29 2007

A136418 Smallest order of the cyclotomic polynomial whose maximal coefficient in absolute value is n.

Original entry on oeis.org

0, 105, 385, 1365, 1785, 2805, 3135, 10353, 6545, 12155, 21385, 11165, 21505, 10465, 16555, 19285, 37961, 35105, 18445, 24395, 23205, 53669, 11305, 28595, 17255, 36465, 20615, 42315, 123585, 31535, 49335, 39585, 61295, 35805, 72709, 54285
Offset: 1

Views

Author

Robert G. Wilson v, Mar 31 2008

Keywords

Comments

This differs from A013594.
For squarefree k, are there an infinite number of cyclotomic polynomials Phi(k,x) of height n? This is true for n=1 because it is known that there are an infinite number of flat cyclotomic polynomials with k the product of three distinct primes. See A117223. - T. D. Noe, Apr 22 2008
There are an infinite number of cyclotomic polynomials of height n if the following generalization of Kaplan's theorem 2 is true: Let N be the product of distinct odd primes and let p be one of those primes. Let q any prime such that q = p (mod N/p), then the height of Phi(Nq/p,x) is the same as the height of Phi(N,x). By Dirichlet's theorem, there are an infinite number of primes q. [From T. D. Noe, Apr 13 2010]

Crossrefs

Programs

  • Mathematica
    f[n_] := f[n] = Max@ Abs@ CoefficientList[ Cyclotomic[n, x], x]; Do[ f@n, {n, 100000}]; t = Array[f, 31000]; Table[ Position[t, n, 1, 1], {n, 25}]//Flatten

Extensions

More terms from T. D. Noe, Apr 22 2008
Showing 1-2 of 2 results.