%I A105421
%S A105421 8,30,31,33,68,72,180,1052,6471,40083,40087,40090,40113,40120
%N A105421 Numbers n such that prime(n + 1) == 7 (mod n).
%t A105421 bb={};Do[If[7==Mod[Prime[n+1], n], bb=Append[bb, n]], {n, 1, 99999}];
               bb
%Y A105421 Cf. A105286, A105287, A105288, A105290, A105329.
%Y A105421 Sequence in context: A088131 A072264 A110527 this_sequence A071931 A074670 
               A092277
%Y A105421 Adjacent sequences: A105418 A105419 A105420 this_sequence A105422 A105423 
               A105424
%K A105421 nonn
%O A105421 1,1
%A A105421 Zak Seidov (zakseidov(AT)yahoo.com), May 02 2005