A159079 Primes p such that |p^3 - p^2 - p - 4| is prime.

2, 3, 7, 13, 17, 43, 53, 73, 97, 107, 163, 233, 307, 337, 347, 457, 557, 587, 617, 653, 673, 787, 797, 857, 877, 953, 977, 1063, 1087, 1093, 1117, 1163, 1283, 1303, 1423, 1483, 1583, 1597, 1663, 1733, 1777, 1823, 1933, 1973, 2053, 2503, 2593, 2617, 2647

Offset

1,1

Links

Table of n, a(n) for n=1..49.

Mathematica

lst={}; Do[p=Prime[n]; If[PrimeQ[p^3-p^2-p-4], AppendTo[lst, p]], {n, 6!}]; lst

Prog

(Magma) [ n: n in PrimesUpTo(3000) | IsPrime(a) where a is n^3-n^2-n-4 ]; // Vincenzo Librandi, Dec 03 2010; corrected by Klaus Brockhaus, Dec 03 2010

Crossrefs

Sequence in context: A129941 A287147 A325545 * A068947 A068948 A329414

Adjacent sequences: A159076 A159077 A159078 * A159080 A159081 A159082

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Apr 04 2009

Status

approved