%I A057877
%S A057877 23,113,1531,12239,111317,1111219,11119291,111111197,1111113173,
%T A057877 11111133017,111111189919,1111111411337,11111111161177,111111111263311,
%U A057877 1111111111149119,11111111111179913,111111111111118771
%N A057877 a(n) = smallest n-digit prime in A057876.
%e A057877 1531 gives primes 53, 131 and 151 after dropping digits 1, 5 and 3.
%t A057877 Do[k = (10^n - 1)/9; While[d = IntegerDigits[k]; !PrimeQ[k] || !PrimeQ[ 
               FromDigits[ DeleteCases[d, 0]]] || !PrimeQ[ FromDigits[ DeleteCases[d, 
               1]]] || !PrimeQ[ FromDigits[ DeleteCases[d, 2]]] || !PrimeQ[ FromDigits[ 
               DeleteCases[d, 3]]] || !PrimeQ[ FromDigits[ DeleteCases[d, 4]]] || 
               !PrimeQ[ FromDigits[ DeleteCases[d, 5]]] || !PrimeQ[ FromDigits[ 
               DeleteCases[d, 6]]] || !PrimeQ[ FromDigits[ DeleteCases[d, 7]]] || 
               !PrimeQ[ FromDigits[ DeleteCases[d, 8]]] || !PrimeQ[ FromDigits[ 
               DeleteCases[d, 9]]], k++ ]; Print[k], {n, 2, 19}]
%Y A057877 Cf. A057876, A057877, A057878, A057879, A057880, A057881, A057882, A057883, 
               A051362, A034302, A034303, A034304, A034305.
%Y A057877 Sequence in context: A101804 A142324 A070024 this_sequence A156568 A042026 
               A042028
%Y A057877 Adjacent sequences: A057874 A057875 A057876 this_sequence A057878 A057879 
               A057880
%K A057877 base,nonn
%O A057877 1,1
%A A057877 Patrick De Geest (pdg(AT)worldofnumbers.com), Oct 15 2000.
%E A057877 Extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 17 2002