%I A083876
%S A083876 341,1105,1729,29341,29341,162401,252601,252601,252601,252601,252601,
%T A083876 252601,1152271,2508013,2508013,3828001,3828001,3828001,3828001,3828001,
%U A083876 3828001,3828001,3828001,3828001,3828001,6733693,6733693,6733693
%N A083876 Least pseudoprime to base 2 through base p_n, where p is the n-th prime.
%t A083876 k = 4; Do[l = Table[ Prime[i], {i, 1, n}]; While[ PrimeQ[k] || Union[PowerMod[l, 
               k - 1, k]] != {1}, k++ ]; Print[k], {n, 1, 29}]
%Y A083876 Cf. A001567, A052155, A083737, A083739.
%Y A083876 Sequence in context: A153508 A087835 A066488 this_sequence A068216 A038473 
               A050217
%Y A083876 Adjacent sequences: A083873 A083874 A083875 this_sequence A083877 A083878 
               A083879
%K A083876 nonn
%O A083876 1,1
%A A083876 Robert G. Wilson v (rgwv(AT)rgwv.com), May 06 2003