A155010 Primes p such that (p-a)*(p+a)-+a*p and (p-b)*(p+b)-+b*p are primes, a=2,b=3.

7, 37, 587, 28703, 35677, 36857, 99367, 326707, 361687, 578167, 613573, 619007, 656407, 688783, 702203, 713467, 874823, 922027, 940573, 1045763, 1057907, 1244687, 1371157, 1419697, 1555187, 1665767, 1687187, 1687327, 1799453

Offset

1,1

Links

Table of n, a(n) for n=1..29.

Mathematica

lst={}; Do[p=Prime[n]; If[PrimeQ[(p-2)*(p+2)-2*p]&&PrimeQ[(p-2)*(p+2)+2*p]&&PrimeQ[(p-3)*(p+3)-3*p]&&PrimeQ[(p-3)*(p+3)+3*p], AppendTo[lst, p]], {n, 9!}]; lst
Select[Prime[Range[200000]], AllTrue[Flatten[{(#-2)(#+2)+{2#, -2#}, (#-3)(#+3)+ {3#, -3#}}], PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Apr 26 2015 *)

Crossrefs

Cf. A125272, A053184, A038872, A141158, A038615, A098058, A038936, A089270, A140559, A154939, A155006, A155007, A155008, A155009

Sequence in context: A341377 A082687 A117731 * A292807 A210620 A250843

Adjacent sequences: A155007 A155008 A155009 * A155011 A155012 A155013

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jan 18 2009

Status

approved