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.

A160350 Indices n=pqr of flat cyclotomic polynomials, where p

Original entry on oeis.org

30, 42, 66, 70, 78, 102, 110, 114, 130, 138, 154, 170, 174, 182, 186, 190, 222, 230, 231, 238, 246, 258, 266, 282, 286, 290, 310, 318, 322, 354, 366, 370, 374, 399, 402, 406, 410, 418, 426, 430, 434, 435, 438, 442, 465, 470, 474, 483, 494, 498, 506, 518, 530
Offset: 1

Views

Author

M. F. Hasler, May 11 2009, May 14 2009

Keywords

Comments

A polynomial is called flat iff it is of height 1, where the height is the largest absolute value of the coefficients.
A cyclotomic polynomial phi(n) is said of order 3 iff n=pqr with distinct (usually odd) primes p,q,r.
It is well known that phi(n) is flat if n has less than 3 odd prime factors, so this sequence includes all numbers of the form 2pq, with primes q>p>2, i.e. A075819. Sequence A117223 lists the complement, i.e. odd terms in this sequence, which start with 231 = 3*7*11.
Moreover, Kaplan shows that the present sequence also includes pqr if r = +-1 (mod pq). Sequence A160352 lists the subsequence of all such numbers, while A160354 lists elements which are not of this form.

Examples

			a(1)=30=2*3*5 is the smallest product of three distinct primes, and Phi[30] = X^8 + X^7 - X^5 - X^4 - X^3 + X + 1 has only coefficients in {0,1,-1}.
a(19)=231=3*7*11 is the smallest odd product of three distinct primes p,q,r such that Phi[pqr] is flat.
		

Crossrefs

Cf. A159908, A159909 (counts (p, q) for given r).

Programs

  • PARI
    for( pqr=1,999, my(f=factor(pqr)); #f~==3 & vecmax(f[,2])==1 & vecmax(abs(Vec(polcyclo(pqr))))==1 & print1(pqr","))

A159909 Number of pairs (p,q) of odd primes p < q < r=prime(n) such that the cyclotomic polynomial Phi(p*q*r) has no coefficient > 1 in absolute value.

Original entry on oeis.org

0, 0, 0, 0, 1, 0, 1, 2, 3, 3, 4, 2, 7, 1, 3, 2, 6, 6, 4, 7, 9, 6, 5, 10, 7, 9, 8, 6, 13, 9, 4, 14, 10, 10, 18, 6, 12, 12, 10, 16, 15, 11, 18, 14, 11, 19, 16, 13, 19, 14, 17, 22, 18, 16, 17, 18, 19, 20, 19, 22, 17, 19, 17, 19, 19, 19, 31, 25, 13, 38, 20, 23, 25, 23, 31, 30, 31, 19
Offset: 1

Views

Author

M. F. Hasler, May 09 2009

Keywords

Comments

The cyclotomic polynomial Phi[pqr] can only have coefficients with absolute value > 1 if p,q,r are distinct odd primes, that's why we require 2 < p < q < r. If any of these inequalities is replaced by equality, then Phi[pqr] necessarily has only zero or unit (+-1) coefficients. Sequence A159908 counts all possibilities including these trivial cases.

Examples

			a(5)=1 is the first nonzero term, since the smallest example for Phi(pqr) having no coefficient > 1 (in abs. value) for odd primes p<q<r is obtained for r=prime(5), namely Phi(3*7*11).
		

Crossrefs

Cf. A117223. [T. D. Noe, May 11 2009]

Programs

  • PARI
    A159909(n) = sum( i=2,n-1, my(pq=prime(n)*prime(i)); sum( j=2,i-1, vecmax(abs(Vec(polcyclo(prime(j)*pq))))==1 ))

Extensions

Extended by T. D. Noe, May 11 2009
More terms from Robin Visser, Aug 09 2023
Showing 1-2 of 2 results.