login
Least prime of a 6-tuplet that contains both a prime quadruple and a sexy prime quadruple.
1

%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