|
%I #11 Sep 08 2022 08:45:33
%S 13,37,61,181,373,541,853,1237,1381,1693,1861,2221,3037,3733,7237,
%T 7933,8293,9421,12781,14173,14653,16141,19333,25933,27901,28573,30637,
%U 34981,36493,38821,41221,44533,46237,49741,52453,60037,70237,73453,87037
%N Primes of the form k^2 + 12.
%t Intersection[Table[n^2+12,{n,0,10^2}],Prime[Range[9*10^3]]] ...or... For[i=12,i<=12,a={};Do[If[PrimeQ[n^2+i],AppendTo[a,n^2+i]],{n,0,100}];Print["n^2+",i,",",a];i++ ]
%o (Magma) [ a: n in [0..900] | IsPrime(a) where a is n^2+12] // _Vincenzo Librandi_, Nov 24 2010
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, May 07 2008
%E More terms from _Vincenzo Librandi_, Apr 28 2010
|
