%I A065589
%S A065589 2,61,661,6661,666607,666667,66666629,66666667,666666667,6666666661,
%T A065589 66666666667,6666666666629,66666666666629,666666666666631,
%U A065589 66666666666666047,66666666666666601,6666666666666666059
%N A065589 Smallest prime beginning with exactly n 6's.
%H A065589 Maximilian Hasler, <a href="b065589.txt">Table of n, a(n) for n = 1..201</
               a>
%t A065589 Do[a = Table[6, {n}]; k = 0; While[b = FromDigits[ Join[a, IntegerDigits[k] 
               ]]; First[ IntegerDigits[k]] == 6 || !PrimeQ[b], k++ ]; Print[b], 
               {n, 1, 17} ]
%Y A065589 Cf. A037065, A065584 - A065592.
%Y A065589 Sequence in context: A167215 A088078 A059004 this_sequence A094478 A064738 
               A067825
%Y A065589 Adjacent sequences: A065586 A065587 A065588 this_sequence A065590 A065591 
               A065592
%K A065589 nonn,base
%O A065589 1,1
%A A065589 Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 28 2001
%E A065589 Corrected by Don Reble, Jan 17 2007