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