OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MATHEMATICA
a250180[n_] := Select[Range[n], PrimeQ@Cyclotomic[25, #] &]; a250180[256]
PROG
(PARI) isok(n) = isprime(polcyclo(25, n)); \\ Michel Marcus, Dec 27 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Eric Chen, Dec 26 2014
STATUS
approved