login
A049436
p, p+8 and either p+2 or p+6 or both are all primes.
4
3, 5, 11, 23, 29, 53, 59, 71, 101, 131, 149, 173, 191, 233, 263, 269, 431, 563, 569, 593, 599, 653, 821, 1013, 1031, 1061, 1223, 1229, 1283, 1289, 1319, 1451, 1481, 1601, 1613, 1619, 1871, 2081, 2129, 2333, 2339, 2381, 2543, 2549, 2711, 2789, 2963, 3251
OFFSET
1,1
LINKS
EXAMPLE
3 is here because 5, 7 and 11 are primes; 5 is here because 7, 11 and 13 are primes.
MATHEMATICA
Select[Prime[Range[500]], PrimeQ[#+8]&&AnyTrue[#+{2, 6}, PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 04 2017 *)
KEYWORD
nonn
AUTHOR
STATUS
approved