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 this_sequence A109348 A078985 A041173
Adjacent sequences: A105285 A105286 A105287 this_sequence A105289 A105290 A105291
nonn
Zak Seidov (zakseidov(AT)yahoo.com), Apr 25 2005
Search completed in 0.002 seconds