Search: id:A037065
Results 1-1 of 1 results found.

%I A037065
%S A037065 61,661,6661,166667,666667,16666669,66666667,666666667,6666666661,
%T A037065 66666666667,1666666666661,36666666666661,166666666666667,
%U A037065 3666666666666667,16666666666666661,616666666666666661
%N A037065 Smallest prime containing exactly n 6's.
%C A037065 Note that a(11) is palindromic.
%t A037065 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, 6], {n, 1, 17}]
%Y A037065 Cf. A065589, A037064, A034388, A036507-A036536.
%Y A037065 Cf. A037053, A037055, A037057, A037059, A037061, A037063, A037067, A037069, 
               A037071.
%Y A037065 Sequence in context: A069595 A068850 A142667 this_sequence A092571 A119597 
               A132388
%Y A037065 Adjacent sequences: A037062 A037063 A037064 this_sequence A037066 A037067 
               A037068
%K A037065 nonn,base
%O A037065 1,1
%A A037065 Patrick De Geest (pdg(AT)worldofnumbers.com), Jan 04 1999.
%E A037065 More terms from Hans Havermann (pxp(AT)rogers.com), Jun 16 2001

Search completed in 0.001 seconds