OFFSET
1,1
MATHEMATICA
lst={}; Do[p=Prime[n]; If[p-Prime[n-1]==Prime[n+1]-p==6*10, AppendTo[lst, p]], {n, 8!, 2*10!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 20 2010
STATUS
approved