A138936 Indices n such that A019324(k)=Phi[k](6) is prime, where Phi is a cyclotomic polynomial.

1, 2, 3, 4, 6, 7, 8, 18, 21, 22, 24, 29, 30, 42, 50, 62, 71, 86, 90, 94, 118, 124, 127, 144, 154, 192, 214, 271, 354, 360, 411, 480, 509, 558, 575, 663, 764, 814, 825, 874, 1028, 1049, 1050, 1102, 1113, 1131, 1158, 1376, 1464, 1468, 1535, 1622, 1782, 1834

Offset

1,2

Links

Robert Price, Table of n, a(n) for n = 1..103

Yves Gallot, Cyclotomic polynomials and prime numbers

Index entries for cyclotomic polynomials, values at X

Mathematica

Select[Range[1000], PrimeQ[Cyclotomic[#, 6]] &]

Prog

(PARI) for( i=1, 999, ispseudoprime( polcyclo(i, 6)) && print1( i", ")) /* use ...subst(polcyclo(i), x, 6)... in PARI < 2.4.2 */

Crossrefs

Cf. A019324, A138920-A138940.

Sequence in context: A039087 A093710 A091421 * A135604 A345437 A084826

Adjacent sequences: A138933 A138934 A138935 * A138937 A138938 A138939

Keyword

nonn

Author

M. F. Hasler, Apr 03 2008

Extensions

a(41)-a(54) from Robert Price, Apr 16 2012

Status

approved