cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

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