A160264 Least prime of a 6-tuplet that contains both a prime quadruple and a sexy prime quadruple.
11, 1481, 1861, 5641, 88801, 165701, 266671, 284731, 326141, 402751, 626611, 661091, 855721, 959461, 1022501, 1068241, 1068701, 1118851, 1146781, 1155601, 1246361, 1461401, 1573921, 1830331, 1917731, 2674531, 2683771, 3058871
Offset: 1
Keywords
Examples
6-tuplet 5641 5647 5651 5653 5657 5659, contains sexy prime quadruple 5641 5647 5653 5659, and prime quadruple 5651 5653 5657 5659.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..165
Programs
-
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 *)
Extensions
Extended by Ray Chandler, May 23 2009
Comments