A049436 p, p+8 and either p+2 or p+6 or both are all primes.
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
Keywords
Examples
3 is here because 5, 7 and 11 are primes; 5 is here because 7, 11 and 13 are primes.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Prime[Range[500]],PrimeQ[#+8]&&AnyTrue[#+{2,6},PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 04 2017 *)