OFFSET
1,1
MATHEMATICA
Select[Prime[Range[250]], Not[PrimeQ[ #^2-#-1]]&]
PROG
(Magma) [p: p in PrimesUpTo(700)| not IsPrime(p^2-p-1)] // Vincenzo Librandi, Jan 29 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Jul 27 2006
STATUS
approved