A250192 Numbers n such that Phi(45,n) is prime, where Phi is the cyclotomic polynomial.

11, 18, 23, 24, 29, 33, 40, 51, 61, 65, 85, 91, 95, 113, 153, 206, 207, 218, 264, 276, 285, 292, 313, 332, 347, 362, 367, 391, 417, 418, 424, 426, 428, 439, 444, 451, 454, 468, 476, 493, 542, 601, 634, 642, 653, 657, 680, 705, 734, 764, 783, 787, 856, 867, 873, 915, 942, 945, 953, 964, 971, 1013, 1022, 1044, 1054, 1058, 1070

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[1000], PrimeQ[Cyclotomic[45, #]] &] (* Vincenzo Librandi, Jan 16 2015 *)

PARI

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