A160859 Primes p such that p^3 + p^2 - 1 and p^3 + p^2 + 1 are prime.

2, 5, 11, 47, 71, 89, 179, 317, 461, 659, 1481, 1499, 1511, 2141, 2441, 2549, 2777, 2879, 2909, 3221, 3659, 3677, 3701, 4229, 4337, 4691, 5669, 5807, 7517, 8147, 8867, 9029, 9311, 10271, 13907, 14327, 14747, 15107, 15269, 16217, 16301, 16937, 17627

Offset

1,1

Comments

2^3 + 2^2 - 1 = 11, 2^3 + 2^2 + 1 = 13

Links

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

Mathematica

lst={}; Do[p=Prime[n]; a=p^2; b=p^3; c=b+a; If[PrimeQ[c-1]&&PrimeQ[c+1], AppendTo[lst, p]], {n, 2*7!}]; lst
ppQ[n_]:=Module[{c=n^3+n^2}, And@@PrimeQ[c+{1, -1}]]; Select[Prime[Range[ 2100]], ppQ] (* Harvey P. Dale, Jan 18 2013 *)

Crossrefs

Cf. A160858

Sequence in context: A088148 A088149 A153989 * A106887 A236044 A285809

Adjacent sequences: A160856 A160857 A160858 * A160860 A160861 A160862

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, May 29 2009

Extensions

Edited by Charles R Greathouse IV, Nov 11 2009

Status

approved