%I #3 Jul 12 2012 00:39:49
%S 7,11,43,29,61,47,79,83,97,101,151,137,223,173,241,191,277,227,313,
%T 263,331,281,349,317,367,353,421,389,439,443,457,461,547,479,601,569,
%U 619,587,673,641,691,659,709,677,727,821,853,839,907,857,997,911,1033,929
%N List of pairs {n-th prime == 7 mod 18, n-th pair == -7 mod 18}.
%C 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.
%t 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
%Y Cf. A129807.
%K nonn
%O 1,1
%A _Zak Seidov_, May 24 2007
|