1,1
bb={}; Do[If[2==Mod[Prime[n+1], n], bb=Append[bb, n]], {n, 1, 200000}]; bb
Sequence in context: A091647 A106132 A197277 * A163349 A016130 A115202
Adjacent sequences: A105284 A105285 A105286 * A105288 A105289 A105290
nonn
Zak Seidov (zakseidov(AT)yahoo.com), Apr 25 2005