1,1
bb={}; Do[If[3==Mod[Prime[n+1], n], bb=Append[bb, n]], {n, 1, 200000}]; bb
Sequence in context: A041941 A013331 A042425 * A109348 A192084 A078985
Adjacent sequences: A105285 A105286 A105287 * A105289 A105290 A105291
nonn
Zak Seidov (zakseidov(AT)yahoo.com), Apr 25 2005