OFFSET
1,1
COMMENTS
3*11-28=5, 3*11+28=61, ...
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[(p-4)*(p+4)-4*p]&&PrimeQ[(p-4)*(p+4)+4*p], AppendTo[lst, p]], {n, 7!}]; lst
Select[Prime[Range[1500]], AllTrue[(#-4)(#+4)+{4#, -4#}, PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 27 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 18 2009
STATUS
approved