%I
%S 5,7,13,19,29,41,61,97,113,139,191,379,383,401,491,719,953,1051,1367,
%T 1553,1609,1657,1667,1801,1933,2129,2207,2351,2473,3001,3023,3061,
%U 3449,3571,3863,3943,3967,4073,4219,5167,5209,5683,5783,6257,6329,6827,7187
%N Primes p such that p^2 + 12 are also primes.
%H Vincenzo Librandi, <a href="/A153116/b153116.txt">Table of n, a(n) for n = 1..1000</a>
%t fQ[n_]:=PrimeQ[n^212]&&PrimeQ[n^2+12];lst={};Do[If[fQ@Prime[n],AppendTo[lst,Prime[n]]],{n,7!}];lst
%t Select[Prime[Range[7000]], PrimeQ[#^2  12] && PrimeQ[#^2 + 12]&] (* _Vincenzo Librandi_, Apr 09 2013 *)
%t Select[Prime[Range[1000]],AllTrue[#^2+{12,12},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jul 22 2014 *)
%o (MAGMA) [p: p in PrimesUpTo(7500)  IsPrime(p^212) and IsPrime(p^2+12)]; // _Vincenzo Librandi_, Apr 09 2013
%K nonn,easy
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Dec 18 2008
