A138939 Indices k such that A019327(k)=Phi[k](9) is prime, where Phi is a cyclotomic polynomial.

6, 12, 18, 20, 30, 36, 54, 66, 118, 138, 152, 182, 232, 264, 336, 340, 380, 414, 446, 492, 540, 624, 720, 762, 1066, 1094, 1098, 1170, 1230, 1254, 1320, 1428, 1546, 2018, 2574, 2724, 2804, 2920, 3074, 3316, 3646, 4124, 4132, 4186, 4620, 4802

Offset

1,1

Links

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

Yves Gallot, Cyclotomic polynomials and prime numbers

Index entries for cyclotomic polynomials, values at X

Mathematica

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

Prog

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

Crossrefs

Cf. A019327, A138920-A138940.

Sequence in context: A291022 A348719 A316221 * A221220 A046411 A364348

Adjacent sequences: A138936 A138937 A138938 * A138940 A138941 A138942

Keyword

nonn

Author

M. F. Hasler, Apr 03 2008

Extensions

a(25)-a(46) from Robert Price, Apr 28 2012

Status

approved