A049436 - OEIS

%I #6 Jan 04 2017 12:03:29

%S 3,5,11,23,29,53,59,71,101,131,149,173,191,233,263,269,431,563,569,

%T 593,599,653,821,1013,1031,1061,1223,1229,1283,1289,1319,1451,1481,

%U 1601,1613,1619,1871,2081,2129,2333,2339,2381,2543,2549,2711,2789,2963,3251

%N p, p+8 and either p+2 or p+6 or both are all primes.

%H Harvey P. Dale, <a href="/A049436/b049436.txt">Table of n, a(n) for n = 1..1000</a>

%e 3 is here because 5, 7 and 11 are primes; 5 is here because 7, 11 and 13 are primes.

%t Select[Prime[Range[500]],PrimeQ[#+8]&&AnyTrue[#+{2,6},PrimeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jan 04 2017 *)

%Y A031926, A023202, A049437, A049438, A046134, A046138, A007530.

%K nonn

%O 1,1

%A _Labos Elemer_