%I #9 Jun 24 2020 22:48:31
%S 11,1481,1861,5641,88801,165701,266671,284731,326141,402751,626611,
%T 661091,855721,959461,1022501,1068241,1068701,1118851,1146781,1155601,
%U 1246361,1461401,1573921,1830331,1917731,2674531,2683771,3058871
%N Least prime of a 6-tuplet that contains both a prime quadruple and a sexy prime quadruple.
%C Sequence is probably infinite.
%H Harvey P. Dale, <a href="/A160264/b160264.txt">Table of n, a(n) for n = 1..165</a>
%e 6-tuplet 5641 5647 5651 5653 5657 5659, contains sexy prime quadruple 5641 5647 5653 5659, and prime quadruple 5651 5653 5657 5659.
%t 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 *)
%Y Cf. A023271, A007530.
%K nonn
%O 1,1
%A _Ki Punches_, May 05 2009
%E Extended by _Ray Chandler_, May 23 2009