%I A037059
%S A037059 3,233,2333,23333,313333,3233333,31333333,333233333,3233333333,
%T A037059 23333333333,333313333333,3333333333383,33133333333333,323333333333333,
%U A037059 1333333333333333,23333333333333333,333333133333333333
%N A037059 Smallest prime containing exactly n 3's.
%t A037059 f[n_, b_] := Block[{k = 10^(n + 1), p = Permutations[ Join[ Table[b, 
               {i, 1, n}], {x}]], c = Complement[Table[j, {j, 0, 9}], {b}], q = 
               {}}, Do[q = Append[q, Replace[p, x -> c[[i]], 2]], {i, 1, 9}]; r 
               = Min[ Select[ FromDigits /@ Flatten[q, 1], PrimeQ[ # ] & ]]; If[r 
               ? Infinity, r, p = Permutations[ Join[ Table[ b, {i, 1, n}], {x, 
               y}]]; q = {}; Do[q = Append[q, Replace[p, {x -> c[[i]], y -> c[[j]]}, 
               2]], {i, 1, 9}, {j, 1, 9}]; Min[ Select[ FromDigits /@ Flatten[q, 
               1], PrimeQ[ # ] & ]]]]; Table[ f[n, 3], {n, 1, 18}]
%Y A037059 Different from A065580.
%Y A037059 Cf. A065586, A065580, A037058, A034388, A036507-A036536.
%Y A037059 Cf. A037053, A037055, A037057, A037061, A037063, A037065, A037067, A037069, 
               A037071.
%Y A037059 Sequence in context: A099426 A100201 A159807 this_sequence A065580 A072320 
               A162603
%Y A037059 Adjacent sequences: A037056 A037057 A037058 this_sequence A037060 A037061 
               A037062
%K A037059 nonn,base
%O A037059 1,1
%A A037059 Patrick De Geest (pdg(AT)worldofnumbers.com), Jan 04 1999.
%E A037059 More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Mar 
               23 2003