|
%I #12 Sep 08 2022 08:45:42
%S 17,37,197,401,577,2917,5477,7057,8101,12101,22501,32401,50177,52901,
%T 57601,69697,72901,80657,98597,122501,147457,176401,193601,197137,
%U 215297,324901,352837,414737,427717,454277,547601,739601,746497,846401
%N Primes of the form p^2 + 2*p + 2 where p is prime.
%t lst={};Do[p=Prime[n];r=Sqrt[p-1]-1;If[PrimeQ[r],AppendTo[lst,p]],{n,4*8!}];lst
%o (Magma) [a: p in PrimesUpTo(950) | IsPrime(a) where a is p^2+2*p+2]; // _Vincenzo Librandi_, Dec 20 2010
%o (PARI) forprime(p=2,1000,m=p^2+2*p+2;if(isprime(m),print1(m,", ")))
%Y Cf. A127435, A127436.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Mar 01 2009
|
