OFFSET
1,1
MATHEMATICA
lst={}; Do[p=Prime[n]; If[p-Prime[n-1]==Prime[n+1]-p==6*9, AppendTo[lst, p]], {n, 9!, 10!}]; lst
Select[Partition[Prime[Range[2*10^6]], 3, 1], Differences[#]=={54, 54}&][[All, 2]] (* Harvey P. Dale, Jul 07 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 20 2010
STATUS
approved