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,1

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A246392.

Sequence in context: A287868 A095648 A273679 * A250217 A335278 A151748

Adjacent sequences: A250189 A250190 A250191 * A250193 A250194 A250195

Keyword

nonn

Author

R. J. Mathar, Jan 12 2015

Status

approved