OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[900], PrimeQ[Cyclotomic[33, #]] &] (* Vincenzo Librandi, Jan 17 2015 *)
PROG
(PARI) isok(n) = isprime(polcyclo(30, n)); \\ Michel Marcus, Jan 17 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
R. J. Mathar, Jan 12 2015
STATUS
approved