OFFSET
1,1
EXAMPLE
5 is prime and 5^3 - 5^2 - 5 - 6 = 89 is also prime, so 5 is in the list.
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[p^3-p^2-p-6], AppendTo[lst, p]], {n, 6!}]; lst
Select[Prime[Range[500]], PrimeQ[#^3-#^2-#-6]&] (* Harvey P. Dale, May 11 2011 *)
PROG
(Magma) [p: p in PrimesUpTo(3000)|IsPrime(p^3-p^2-p-6)] // Vincenzo Librandi, Jan 29 2011
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 04 2009
EXTENSIONS
Edited by R. J. Mathar, Apr 05 2009
STATUS
approved