A129865 List of pairs {n-th prime == 7 mod 18, n-th pair == -7 mod 18}.

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

Author

Zak Seidov, May 24 2007

Keywords

• nonn

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.

Crossrefs

Cf. A129807.

Programs

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