Least prime that begins the constellation given by S000681(n).
2, 3, 7, 23, 7, 5, 89, 23, 29, 5, 139, 31, 19, 7, 199, 139, 89, 47, 31, 1601, 397, 19, 67, 7, 137, 29, 17, 5, 113, 509, 359, 89, 83, 47, 23, 197, 137, 149, 29, 1997, 17, 1831, 211, 241, 181, 331, 151, 73, 31, 463, 487, 43, 1597, 277, 67, 13, 7, 523, 1933, 113
1
T. D. Noe, Plot of 160 terms
T. D. Noe, Table of 160 terms
Example: 23 is the first prime of the constellations {0,6} and {0,6,8}.
(Mma) (* t2 contains the numbers found in S000681 *) Table[b = Flatten[Position[IntegerDigits[t2[[n]], 2], 1]] - 1; i = 0; While[Differences[Prime[i + Range[Length[b]]]] != Differences[b], i++]; Prime[i + 1], {n, Length[t2]}]
Cf. S000681.
nonn
T. D. Noe, Jul 09 2015