A199004 Position of n-th prime sextuplet A022008(n) among prime 5-tuples A022007.
1, 2, 7, 8, 9, 35, 49, 55, 75, 76, 82, 84, 115, 124, 133, 140, 144, 153, 167, 172, 177, 200, 201, 202, 203, 211, 213, 232, 235, 237, 240, 243, 245, 252, 256, 262, 276, 281, 285, 297, 305, 319, 322, 325, 331, 349, 352, 353, 374, 377, 379, 380, 399, 407, 415
Offset: 1
Keywords
Examples
a(3)=7 because A022008(3)=16057=A022007(7), a(1000)=12091 because A022008(1000)=5054057077=A022007(12091).
Links
- Zak Seidov, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
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 *)