A250188 Numbers n such that Phi(39,n) is prime, where Phi is the cyclotomic polynomial.

10, 23, 86, 240, 254, 284, 340, 369, 371, 378, 382, 407, 422, 448, 459, 574, 582, 613, 619, 667, 686, 703, 767, 769, 844, 851, 875, 881, 944, 987, 995, 1207, 1219, 1233, 1279, 1292, 1343, 1372, 1399, 1409, 1445, 1468, 1497, 1500, 1557, 1586, 1598, 1633, 1645, 1677, 1760, 1807, 1835

Offset: 1

Author

R. J. Mathar, Jan 12 2015

Keywords

• nonn

Links

• G. C. Greubel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A246392.

Programs

Mathematica

Select[Range[1900], PrimeQ[Cyclotomic[39, #]] &] (* Vincenzo Librandi, Jan 16 2015 *)

PARI

{is(n)=isprime(polcyclo(39,n))};
for(n=1,1000, if(is(n), print1(n, ", "))) \\ G. C. Greubel, May 20 2018