1,1

bb={}; Do[If[2==Mod[Prime[n+1], n], bb=Append[bb, n]], {n, 1, 200000}]; bb

Sequence in context: A098107 A091647 A106132 this_sequence A163349 A016130 A115202

Adjacent sequences: A105284 A105285 A105286 this_sequence A105288 A105289 A105290

nonn

Zak Seidov (zakseidov(AT)yahoo.com), Apr 25 2005