A250196 Numbers n such that Phi(50,n) is prime, where Phi is the cyclotomic polynomial.

6, 7, 17, 42, 56, 62, 106, 108, 112, 141, 161, 163, 173, 210, 212, 231, 296, 306, 342, 360, 382, 395, 400, 416, 418, 431, 435, 457, 458, 492, 517, 530, 531, 540, 551, 618, 637, 672, 697, 713, 722, 732, 790, 791, 810, 850, 852, 876, 898, 902, 926, 928, 937, 938, 970, 1010, 1091, 1118, 1123, 1150, 1157, 1165

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

PARI

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