A159079 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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