%I #10 Oct 30 2019 17:30:09
%S 1,5,65,89,119,215,455,755,779,965,1175,1349,1409,1469,1679,1745,1769,
%T 1889,1955,2009,2105,2435,2519,2525,2585,2639,4685,5045,5165,5735,
%U 5915,5969,6725,7415,7469,7895,8045,9065,9365,9449,9659,9779,9959,10379
%N Numbers n such that 2n+1, 3n+2 and 4n+3 are primes.
%H Harvey P. Dale, <a href="/A126955/b126955.txt">Table of n, a(n) for n = 1..1000</a>
%e Take n = 89. Then 2*89 + 1 = 179, 3*89 + 2 = 269 and 4*89 + 3 = 359 are primes.
%t Select[Range[10500], PrimeQ[2# + 1] && PrimeQ[3# + 2] && PrimeQ[4# + 3] &] (* _Ray Chandler_, Mar 20 2007 *)
%t Select[Range[11000],AllTrue[{2#+1,3#+2,4#+3},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jan 23 2017 *)
%Y Intersection of A005097, A024893, A095278. Cf. A126956.
%K nonn
%O 1,2
%A _J. M. Bergot_, Mar 19 2007
%E Extended by _Ray Chandler_, _Robert G. Wilson v_ and _Stuart Clary_, Mar 20 2007
|