The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A329551 Primes p such that 4*p+3, 6*p+5 and 8*p+7 are all primes. 1

%I

%S 2,59,107,227,389,587,839,977,1217,1259,1319,2957,3947,4889,5189,5519,

%T 6449,7949,8039,8297,8609,9467,11279,11399,12119,13397,14627,14969,

%U 15497,15647,19709,22229,22907,25847,27437,28619,29759,30389,32609,34877,36497,37277,39857,40289,42569,45779,46889

%N Primes p such that 4*p+3, 6*p+5 and 8*p+7 are all primes.

%C All terms but the first == 17 or 29 (mod 30).

%C Thus the least possible difference between successive terms is 12.

%C The first terms p such that p+12 is also a term are 3518687, 5412257, 9447017, 10454177, 45093887, 58628777, 94327967.

%H Robert Israel, <a href="/A329551/b329551.txt">Table of n, a(n) for n = 1..10000</a>

%e a(4)=227 is a member because 227, 4 * 227 + 3 = 911, 6 * 227 + 5 = 1367, and 8 * 227 + 7 = 1823 are all primes.

%p filter:= p -> isprime(p) and isprime(4*p+3) and isprime(6*p+5) and isprime(8*p+7):

%p select(filter, [2, seq(i,i=5..100000, 6)]);

%t Select[Prime[Range[5000]],AllTrue[{4#+3,6#+5,8#+7},PrimeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jun 08 2021 *)

%o (MAGMA) [p:p in PrimesUpTo(50000)|forall{m: m in [-2*p-2,0,2*p+2]| IsPrime(6*p+5+m)}]; // _Marius A. Burtea_, Nov 17 2019

%Y Contains A107021.

%K nonn

%O 1,1

%A _J. M. Bergot_ and _Robert Israel_, Nov 16 2019

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 27 07:44 EDT 2021. Contains 347673 sequences. (Running on oeis4.)