OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[1100], PrimeQ[Cyclotomic[42, #]] &] (* Vincenzo Librandi, Jan 16 2015 *)
PROG
(PARI) {is(n)=isprime(polcyclo(42, n))};
for(n=1, 1000, if(is(n)==1, print1(n, ", "))) \\ G. C. Greubel, May 18 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
R. J. Mathar, Jan 12 2015
STATUS
approved