OFFSET

1,1

COMMENTS

While the sequence is not very interesting up to a(n)<300, there are only 4 values in the interval [400,599].

LINKS

MATHEMATICA

Select[ Range[3, 1000], PrimeQ[ Cyclotomic[#, -2]] &] (* Robert G. Wilson v, Mar 25 2012 *)

PROG

(PARI) for( i=1, 999, isprime( polcyclo(i, -2)) && print1( i", ")) /* for PARI < 2.4.2 use ...subst(polcyclo(i), x, -2)...*/

CROSSREFS

KEYWORD

nonn

AUTHOR

M. F. Hasler, Apr 03 2008

STATUS

approved