login
A129865
List of pairs {n-th prime == 7 mod 18, n-th pair == -7 mod 18}.
0
7, 11, 43, 29, 61, 47, 79, 83, 97, 101, 151, 137, 223, 173, 241, 191, 277, 227, 313, 263, 331, 281, 349, 317, 367, 353, 421, 389, 439, 443, 457, 461, 547, 479, 601, 569, 619, 587, 673, 641, 691, 659, 709, 677, 727, 821, 853, 839, 907, 857, 997, 911, 1033, 929
OFFSET
1,1
COMMENTS
Sum of pairs is multiple of 18k, with k=1,4,6,9,11,16,22,24,28,32,34,37,40,45,49,51,57,65,67,73,75,77,86,94,98,106.
MATHEMATICA
pp=Prime[Range[1000]]; se7=Select[pp, Mod[ #, 18]==7&]; se11=Select[pp, Mod[ #, 18]==11&]; nn=Min[Length/@{se7, se11}]; tr=Table[{se7[[i]], se11[[i]]}, {i, nn}]; A1=tr//Flatten; k=(Total/@tr)/18
CROSSREFS
Cf. A129807.
Sequence in context: A176955 A227281 A268579 * A153377 A062209 A086828
KEYWORD
nonn
AUTHOR
Zak Seidov, May 24 2007
STATUS
approved