|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|