|
|
A250179
|
|
Numbers n such that Phi_24(n) is prime, where Phi is the cyclotomic polynomial.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
a250179[n_] := Select[Range[n], PrimeQ@Cyclotomic[24, #] &]; a250179[366] (* Michael De Vlieger, Dec 25 2014 *)
|
|
PROG
|
(PARI) {is(n)=isprime(polcyclo(24, n))};
for(n=1, 1000, if(is(n), print1(n, ", "))) \\ G. C. Greubel, May 20 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|