A157467 Primes of the form p^2 + 2*p + 2 where p is prime.

17, 37, 197, 401, 577, 2917, 5477, 7057, 8101, 12101, 22501, 32401, 50177, 52901, 57601, 69697, 72901, 80657, 98597, 122501, 147457, 176401, 193601, 197137, 215297, 324901, 352837, 414737, 427717, 454277, 547601, 739601, 746497, 846401

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

lst={}; Do[p=Prime[n]; r=Sqrt[p-1]-1; If[PrimeQ[r], AppendTo[lst, p]], {n, 4*8!}]; lst
Select[Table[p^2+2p+2, {p, Prime[Range[200]]}], PrimeQ] (* Harvey P. Dale, Apr 17 2026 *)

Prog

(Magma) [a: p in PrimesUpTo(950) | IsPrime(a) where a is p^2+2*p+2]; // Vincenzo Librandi, Dec 20 2010
(PARI) forprime(p=2, 1000, m=p^2+2*p+2; if(isprime(m), print1(m, ", ")))

Crossrefs

Cf. A127435, A127436.

Sequence in context: A052292 A154301 A057185 * A093343 A153685 A208292

Adjacent sequences: A157464 A157465 A157466 * A157468 A157469 A157470

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Mar 01 2009

Status

approved