A152295 - OEIS

%I #4 Jul 29 2014 13:04:29

%S 17,71,83,107,191,227,251,263,431,443,479,503,587,827,839,911,983,

%T 1091,1151,1163,1187,1619,1667,1847,1907,2087,2243,2459,2591,3023,

%U 3467,4463,4871,4943,5471,5519,5651,5807,5903,6131,6203,6299,6311,6563,6983,7127

%N Primes of the form : (p-n)/(n+1)=prime and (n+1)*p+n=prime. n=5.

%C This is the general form : (p-n)/(n+1)=primeand(n+1)*p+n=prime; 'Safe' primes and'Sophie Germain' primes just one part of this general form; If n=1 then we got'Safe' primes and'Sophie Germain' primes.

%H Harvey P. Dale, <a href="/A152295/b152295.txt">Table of n, a(n) for n = 1..3000</a>

%t lst={};n=5;Do[p=Prime[k];If[PrimeQ[(p-n)/(n+1)]&&PrimeQ[(n+1)*p+n],AppendTo[lst,p]],{k,7!}];lst

%t Select[Prime[Range[1000]],AllTrue[{(#-5)/6,6#+5},PrimeQ]&] (* This program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jul 29 2014 *)

%Y Cf. A059455, A152292, A152293, A152294

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Dec 02 2008