%I A051888
%S A051888 2,2,2,2,3,2,3,3,7,3,3,5,2,3,13,7,31,5,2,7,17,67,41,3,13,3,43,17,97,7,
               29,
%T A051888 109,3,71,5,2,7,41,3,59,3,11,29,7,107,67,79,3,743,149,163,2,211,2,19,
%U A051888 71,73,23,37,113,149,67,41,617,107,37,107,283,113,19,239,107,73,97,5
%N A051888 a(n) = smallest prime p such that p*n! + 1 is prime.
%F A051888 Analogous to or subset of A051686; generalization of A005384
%t A051888 Do[k = 1; While[ !PrimeQ[ Prime[k]*n! + 1], k++ ]; Print[ Prime[k]], 
               {n, 1, 75} ]
%Y A051888 A005384, A051686, A051886, A051887.
%Y A051888 Sequence in context: A070098 A029233 A147981 this_sequence A088019 A126759 
               A029348
%Y A051888 Adjacent sequences: A051885 A051886 A051887 this_sequence A051889 A051890 
               A051891
%K A051888 nonn
%O A051888 0,1
%A A051888 Labos E. (labos(AT)ana.sote.hu), Dec 15 1999
%E A051888 More terms from James A. Sellers (sellersj(AT)math.psu.edu), Dec 16 1999