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

Author

Vladimir Joseph Stephan Orlovsky, Mar 01 2009

Keywords

• nonn

Crossrefs

Cf. A127435, A127436.

Programs

Magma

[a: p in PrimesUpTo(950) | IsPrime(a) where a is p^2+2*p+2]; // Vincenzo Librandi, Dec 20 2010

Mathematica

lst={};Do[p=Prime[n];r=Sqrt[p-1]-1;If[PrimeQ[r],AppendTo[lst,p]],{n,4*8!}];lst

PARI

forprime(p=2,1000,m=p^2+2*p+2;if(isprime(m),print1(m,", ")))