OFFSET
1,1
COMMENTS
Could be called unrestricted prime octets.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..200
MATHEMATICA
lst={}; Do[p0=Prime[n]; p1=Prime[n+1]; p2=Prime[n+2]; p3=Prime[n+3]; p4=Prime[n+4]; p5=Prime[n+5]; p6=Prime[n+6]; p7=Prime[n+7]; If[p1-p0==p3-p2==p5-p4==p7-p6==2, AppendTo[lst, p0]], {n, 3*9!}]; lst (* Vladimir Joseph Stephan Orlovsky, Apr 02 2010 *)
Transpose[Select[Partition[Prime[Range[400000]], 8, 1], Union[ Differences/@ Partition[ #, 2]]=={{2}}&]][[1]] (* Harvey P. Dale, Nov 13 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Harry J. Smith, Dec 16 2007
STATUS
approved