OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
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
Eric Chen, Dec 24 2014
STATUS
approved