A250179 Numbers n such that Phi_24(n) is prime, where Phi is the cyclotomic polynomial.

2, 3, 5, 6, 10, 13, 14, 15, 18, 25, 26, 27, 31, 34, 37, 39, 40, 42, 44, 46, 49, 50, 53, 59, 62, 63, 65, 68, 69, 75, 76, 77, 83, 87, 99, 100, 102, 104, 107, 110, 142, 152, 161, 166, 174, 175, 184, 187, 188, 191, 192, 199, 204, 207, 208, 213, 215, 222, 224, 227, 238, 244, 245, 247, 250, 256, 259, 263, 264, 265, 268, 274, 279, 286, 289, 303, 310, 311, 312, 314, 327, 332, 337, 339, 350, 353, 363, 366

Offset: 1

Author

Eric Chen, Dec 24 2014

Keywords

• nonn

Links

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

Crossrefs

See A250177 for references.

Programs

Mathematica

a250179[n_] := Select[Range[n], PrimeQ@Cyclotomic[24, #] &]; a250179[366] (* Michael De Vlieger, Dec 25 2014 *)

PARI

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