login
A157467
Primes of the form p^2 + 2*p + 2 where p is prime.
2
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
MATHEMATICA
lst={}; Do[p=Prime[n]; r=Sqrt[p-1]-1; If[PrimeQ[r], AppendTo[lst, p]], {n, 4*8!}]; lst
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
Sequence in context: A052292 A154301 A057185 * A093343 A153685 A208292
KEYWORD
nonn
AUTHOR
STATUS
approved