%I #15 Sep 08 2022 08:45:42
%S 3,57,1203,2307,3837,3843,4227,4257,5277,7053,7473,9933,10893,11487,
%T 12603,23223,32397,44037,44517,46893,48327,48693,52083,52923,54813,
%U 55647,61827,61977,62493,71733,71793,77097,81837,97383,98487,98853,99393,102117,102753,109617,112347
%N Numbers n such that n^2+4, n^2+8, and n^2+10 are prime.
%H Vincenzo Librandi, <a href="/A157929/b157929.txt">Table of n, a(n) for n = 1..200</a>
%t Select[Range[112347], PrimeQ[#^2+4] && PrimeQ[#^2+8] && PrimeQ[#^2+10]&]
%t Select[Range[120000],AllTrue[#^2+{4,8,10},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jan 09 2016 *)
%o (Magma)[n: n in [0..150000]|IsPrime(n^2+4) and IsPrime(n^2+8) and IsPrime(n^2+10)]
%Y Cf. A086220.
%K nonn
%O 1,1
%A _Vincenzo Librandi_, Dec 16 2010