OFFSET
1,1
COMMENTS
1*12-35=-23, 1*12+35=47; 6*16-55=96-55=41, 6*16-55=96+55=151, ...
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[(p-5)*(p+5)-5*p]&&PrimeQ[(p-5)*(p+5)+5*p], AppendTo[lst, p]], {n, 7!}]; lst
Select[Prime[Range[500]], AllTrue[(#-5)(#+5)+{5#, -5#}, PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 01 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 18 2009
STATUS
approved