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
KEYWORD
nonn
AUTHOR
Zak Seidov, May 24 2007
STATUS
approved