login
A160264
Least prime of a 6-tuplet that contains both a prime quadruple and a sexy prime quadruple.
1
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,1
COMMENTS
Sequence is probably infinite.
LINKS
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
Sequence in context: A068896 A286650 A015027 * A351597 A076168 A053884
KEYWORD
nonn
AUTHOR
Ki Punches, May 05 2009
EXTENSIONS
Extended by Ray Chandler, May 23 2009
STATUS
approved