%I A031882
%S A031882 1,3,7,9,33,99,111,777,9999,33333,55555,111111,777777,7777777,55555555
%N A031882 Repdigital lucky numbers.
%t A031882 lst=Range[1, 10^7, 2]; i=2; While[lst[[i]]<=Length[lst], del=Partition[Range[lst[[i]], 
               Length[lst], lst[[i]]], 1]; lst=Delete[lst, del]; i++ ]; lst=Select[lst, 
               (Length[Union[IntegerDigits[ # ]]]==1)&]
%t A031882 lst=Range[1, 10^7, 2]; i = 2; While[lst[[i]]<=Length[lst], del=Partition[Range[lst[[i]], 
               Length[lst], lst[[i]]], 1]; lst=Delete[lst, del]; i++ ]; lst=Select[lst, 
               (Length[Union[IntegerDigits[ # ]]]==1)&] - Robert G. Wilson v (rgwv(at)rgwv.com), 
               May 12 2006. a(16)>10^8.
%Y A031882 Cf. A000959.
%Y A031882 Sequence in context: A057840 A072087 A031161 this_sequence A075982 A100839 
               A013624
%Y A031882 Adjacent sequences: A031879 A031880 A031881 this_sequence A031883 A031884 
               A031885
%K A031882 nonn,more
%O A031882 0,2
%A A031882 Patrick De Geest (pdg(AT)worldofnumbers.com)
%E A031882 Two more terms from Vit Planocka (planocka(AT)mistral.cz), Feb 01 2003
%E A031882 a(15) from Robert G. Wilson v (rgwv(at)rgwv.com), May 12 2006. a(16)>
               10^8.