OFFSET
1,1
MATHEMATICA
Join[{2}, Transpose[Select[Partition[Prime[Range[90]], 2, 1], Divisible[Total[#], 3]&]][[2]]] (* Harvey P. Dale, Feb 20 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 28 2010
STATUS
approved