A210504 - OEIS

%I #20 Jan 14 2016 11:07:33

%S 0,3,6,21,24,48,63,126,213,237,297,318,402,609,657,714,783,864,948,

%T 1053,1287,1347,1449,1581,1683,2166,2184,2358,2457,2463,2481,2736,

%U 2793,2898,2919,3024,3723,3786,3909,4017,4479,4584,4602,4857,5169,5634,5733,7101

%N Numbers n for which 2*n+5, 4*n+5, 6*n+5, and 8*n+5 are primes.

%C All terms are multiple of 3.

%H Harvey P. Dale, <a href="/A210504/b210504.txt">Table of n, a(n) for n = 0..1000</a>

%t Select[Range[0, 10000], PrimeQ[2*# + 5] && PrimeQ[4*# + 5] && PrimeQ[6*# + 5] && PrimeQ[ 8*# + 5] &] (* _T. D. Noe_, Jan 25 2013 *)

%t Select[Range[0,8000],AllTrue[#{2,4,6,8}+5,PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jan 14 2016 *)

%Y Cf. A115334.

%K nonn

%O 0,2

%A _Vladimir Shevelev_ and _Peter J. C. Moses_, Jan 25 2013