The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #5 Nov 21 2013 12:50:01
%S 2,7,11,13,17,19,23,31,41,43,47,61,71,73,83,97,101,103,107,109,113,
%T 127,131,139,149,151,167,181,191,193,197,199,227,229,233,241,251,271,
%U 281,283,293,307,311,313,317,331,347,349,353,367,383,397,401,409,419,421
%N a(n)>a(n-1), a(n) = smallest prime such that a(n)+a(n-1) is multiple of m, a(1)=2, m=3.
%t Join[{2},Transpose[Select[Partition[Prime[Range[90]],2,1],Divisible[Total[#],3]&]][[2]]] (* _Harvey P. Dale_, Feb 20 2011 *)
%Y Cf. A175451.
%K nonn
%O 1,1
%A _Zak Seidov_, May 28 2010