A250194 Numbers n such that Phi(48,n) is prime, where Phi is the cyclotomic polynomial.

5, 7, 10, 16, 17, 39, 41, 51, 55, 70, 96, 97, 104, 132, 136, 137, 148, 182, 195, 206, 216, 227, 234, 236, 245, 262, 267, 278, 283, 287, 305, 310, 331, 361, 362, 380, 384, 409, 410, 411, 423, 438, 446, 464, 473, 495, 522, 549, 561, 564, 578, 587, 591, 592, 602, 619, 622, 633, 665, 679, 687, 714, 741, 759, 777

Offset

1,1

Links

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

Mathematica

Select[Range[800], PrimeQ[Cyclotomic[48, #]] &] (* Vincenzo Librandi, Jan 17 2015 *)

Prog

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

Crossrefs

Cf. A246392.

Sequence in context: A188196 A048584 A085382 * A314293 A073895 A356701

Adjacent sequences: A250191 A250192 A250193 * A250195 A250196 A250197

Keyword

nonn

Author

R. J. Mathar, Jan 12 2015

Status

approved