OFFSET
1,1
COMMENTS
Could be called unrestricted prime sextets.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
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]; If[p1-p0==2&&p3-p2==2&&p5-p4==2, AppendTo[lst, p0]], {n, 8!}]; lst (* Vladimir Joseph Stephan Orlovsky, Apr 02 2010 *)
Transpose[Select[Partition[Prime[Range[25000]], 6, 1], #[[2]]-#[[1]] == #[[4]]-#[[3]] == #[[6]]-#[[5]]==2&]][[1]] (* Harvey P. Dale, Apr 20 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Harry J. Smith, Dec 16 2007
STATUS
approved