%I #14 Apr 11 2022 22:04:42
%S 1,2,7,8,9,35,49,55,75,76,82,84,115,124,133,140,144,153,167,172,177,
%T 200,201,202,203,211,213,232,235,237,240,243,245,252,256,262,276,281,
%U 285,297,305,319,322,325,331,349,352,353,374,377,379,380,399,407,415
%N Position of nth prime sextuplet A022008(n) among prime 5tuples A022007.
%H Zak Seidov, <a href="/A199004/b199004.txt">Table of n, a(n) for n = 1..1000</a>
%F A022007(a(n))=A022008(n).
%e a(3)=7 because A022008(3)=16057=A022007(7),
%e a(1000)=12091 because A022008(1000)=5054057077=A022007(12091).
%t lst = {}; cnt = 0; Do[p = Prime[n]; If[PrimeQ[p+4] && PrimeQ[p+6] && PrimeQ[p+10] && PrimeQ[p+12], cnt++; If[PrimeQ[p+16], AppendTo[lst, cnt]]], {n, 10000000}]; lst (* _T. D. Noe_, Nov 01 2011 *)
%Y Cf. A022007, A022008.
%K nonn
%O 1,2
%A _Zak Seidov_, Nov 01 2011
