OFFSET
1,1
COMMENTS
Sequence is probably infinite.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..165
EXAMPLE
6-tuplet 5641 5647 5651 5653 5657 5659, contains sexy prime quadruple 5641 5647 5653 5659, and prime quadruple 5651 5653 5657 5659.
MATHEMATICA
stQ[n_]:=Module[{ss4=Subsets[n, {4}]}, AnyTrue[ss4, Differences[#]=={6, 6, 6}&] && AnyTrue[ss4, Differences[#]=={2, 4, 2}&]]; Select[Partition[Prime[ Range[ 221000]], 6, 1], stQ][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 24 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Ki Punches, May 05 2009
EXTENSIONS
Extended by Ray Chandler, May 23 2009
STATUS
approved