%I #4 Apr 26 2015 13:49:45
%S 7,37,587,28703,35677,36857,99367,326707,361687,578167,613573,619007,
%T 656407,688783,702203,713467,874823,922027,940573,1045763,1057907,
%U 1244687,1371157,1419697,1555187,1665767,1687187,1687327,1799453
%N Primes p such that (p-a)*(p+a)-+a*p and (p-b)*(p+b)-+b*p are primes, a=2,b=3.
%t 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
%t 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 *)
%Y Cf. A125272, A053184, A038872, A141158, A038615, A098058, A038936, A089270, A140559, A154939, A155006, A155007, A155008, A155009
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jan 18 2009