|
%I #13 Sep 08 2022 08:45:17
%S 3,7,13,53,67,97,227,263,277,337,487,503,547,557,613,617,647,683,727,
%T 937,953,977,1093,1277,1327,1427,1583,1637,1663,1723,1873,1907,1987,
%U 2087,2267,2297,2467,2593,2663,2677,2803,3037,3083,3343,3373,3433,3643
%N Primes p such that 3*p^2 + 2 is prime.
%H Harvey P. Dale, <a href="/A103564/b103564.txt">Table of n, a(n) for n = 1..1000</a>
%t f[n_]:=PrimeQ[(n-1)^2+n^2+(n+1)^2];lst={};Do[p=Prime[n];If[f[p],AppendTo[lst,p]],{n,6!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Oct 27 2009 *)
%t Select[Prime[Range[600]],PrimeQ[3#^2+2]&] (* _Harvey P. Dale_, Nov 08 2011 *)
%o (Magma) [p: p in PrimesUpTo(5000)|IsPrime(3*p^2+2)] // _Vincenzo Librandi_, Jan 30 2011
%K nonn
%O 1,1
%A _Zak Seidov_, Mar 23 2005
|
